Fix buttons serialization and remove tooltips TU

Author: Nyan11

src/Toplo-Serialization-STON/ToButton.extension.st

@@ -28,8 +28,8 @@ ToButton >> stonUserDataOn: aIdentityDictionary [
 	super stonUserDataOn: aIdentityDictionary.
 
 	"LabeledIcon"
-	(self class usesTrait: TToElementWithLabeledIcon) ifTrue: [
-		aIdentityDictionary at: #stonLabeledIcon put: self labeledIcon ].
+	"(self class usesTrait: TToLabeledIcon) ifTrue: [
+		aIdentityDictionary at: #stonLabeledIcon put: self labeledIcon ]."
 
 	"Checkable"
 	self isCheckable ifFalse: [ ^ self ].

src/Toplo-Serialization-Stash/BlElement.extension.st

@@ -28,3 +28,11 @@ BlElement >> allSetterAndGettersForMyStashAllTokens [
 
 
 ]
+
+{ #category : #'*Toplo-Serialization-Stash' }
+BlElement >> stashEnabled [
+
+	<stashAccessors>
+	self isEnabled ifTrue: [ ^ {  } ].
+	^ { (#enabled: -> #isEnabled) }
+]

src/Toplo-Serialization-Stash/TToCheckable.extension.st

@@ -1,12 +1,14 @@
 Extension { #name : #TToCheckable }
 
 { #category : #'*Toplo-Serialization-Stash' }
-TToCheckable >> allSetterAndGettersOfTraitForMyStash: aToElement [
+TToCheckable >> stashAccessorsForTToCheckable [
 
+	<stashAccessors>
 	| settersAndGetters |
 	self isCheckable ifFalse: [ ^ {  } ].
 	settersAndGetters := OrderedCollection new.
-	settersAndGetters add: #checked.
-	settersAndGetters add: #group.
+	settersAndGetters add: #initializeCheckable onlySetOnStash.
+	self checked ifTrue: [ settersAndGetters add: #checked ].
+	self group ifNotNil: [ settersAndGetters add: #group ].
 	^ settersAndGetters
 ]

src/Toplo-Serialization-Stash/TToElementWithLabeledIcon.extension.st

@@ -1,8 +1,11 @@
 Extension { #name : #TToElementWithTooltip }
 
 { #category : #'*Toplo-Serialization-Stash' }
-TToElementWithTooltip >> allSetterAndGettersOfTraitForMyStash: aToElement [
+TToElementWithTooltip >> stashAccessorsForTToElementWithTooltip [
+
+	<stashAccessors>
 
 	self hasTooltip ifFalse: [ ^ {  } ].
-	^ { #tooltipBuilder. #closeTooltipWindowOnMouseLeave . #tooltipPopupDelay }
+	^ { #tooltipBuilder. #closeTooltipWindowOnMouseLeave.
+	  #tooltipPopupDelay }
 ]

src/Toplo-Serialization-Stash/TToElementWithTooltip.extension.st

@@ -0,0 +1,28 @@
+Extension { #name : #TToTripletElement }
+
+{ #category : #'*Toplo-Serialization-Stash' }
+TToTripletElement >> stashAccessorsForTToTripletElement [
+
+	<stashAccessors>
+
+	| settersAndGetters |
+	settersAndGetters := OrderedCollection new.
+
+	self endAlignment ifNotNil: [ settersAndGetters add: #endAlignment ].
+	self endElement ifNotNil: [ settersAndGetters add: #endElement ].
+	self endFlexible ifTrue: [ settersAndGetters add: #endFlexible ].
+	self endInterspace = 0 ifFalse: [
+		settersAndGetters add: #endInterspace ].
+
+	self flexible ifTrue: [ settersAndGetters add: #flexible ].
+	self middleElement ifNotNil: [ settersAndGetters add: #middleElement ].
+
+	self startAlignment ifNotNil: [
+		settersAndGetters add: #startAlignment ].
+	self startElement ifNotNil: [ settersAndGetters add: #startElement ].
+	self startFlexible ifTrue: [ settersAndGetters add: #startFlexible ].
+	self startInterspace = 0 ifFalse: [
+		settersAndGetters add: #startInterspace ].
+
+	^ settersAndGetters
+]

src/Toplo-Serialization-Stash/TToEnableable.extension.st

@@ -368,42 +368,3 @@ ToSerializerTest >> testTokens [
 		self assert: (element valueOfTokenNamed: #hello) value equals: #goodbye.
 		self assert: (element valueOfTokenNamed: #titi) value equals: #toto ]
 ]
-
-{ #category : #tests }
-ToSerializerTest >> testTooltip1 [
-
-	| origin |
-	origin := ToElement new.
-
-	self
-		test: origin
-		on: [ :element | self assert: element hasTooltip equals: false ]
-]
-
-{ #category : #tests }
-ToSerializerTest >> testTooltip2 [
-
-	| origin |
-	origin := ToElement new
-		          tooltipText: 'hello tooltip';
-		          closeTooltipWindowOnMouseLeave: false;
-		          yourself.
-
-	self test: origin on: [ :element |
-		self assert: element hasTooltip.
-		self deny: element closeTooltipWindowOnMouseLeave. ]
-]
-
-{ #category : #tests }
-ToSerializerTest >> testTooltip3 [
-
-	| origin |
-	origin := ToElement new
-		          tooltipText: 'hello tooltip';
-		          tooltipPopupDelay: 5;
-		          yourself.
-
-	self test: origin on: [ :element |
-		self assert: element hasTooltip.
-		self assert: element tooltipPopupDelay equals: 5 ]
-]