Merge pull request #26 from OpenSmock/devStage-placeholder

add placeholder to stash

Author: YannLeGoff

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

@@ -0,0 +1,13 @@
+Extension { #name : #ToTextField }
+
+{ #category : #'*Toplo-Serialization-Stash' }
+ToTextField >> stashPlaceholder [
+
+	<stashAccessors>
+	self userData at: #placeholder ifAbsent: [ ^ {  } ].
+	^ { ([ :e |
+		   ' placeholderText: '''
+		   , (BlTextNonPrintableCharacterPrinter print:
+				    (self userData at: #placeholder) children first children first
+					    text) , ''''] -> self) onlySetOnStash }
+]

src/Toplo-Serialization-Tests/ToSerializerTest.class.st

@@ -143,6 +143,21 @@ ToSerializerTest >> testLocalTheme2 [
 		self assert: element localTheme class equals: ToBeeDarkTheme ]
 ]
 
+{ #category : #tests }
+ToSerializerTest >> testPlaceHolder [
+
+	| origin textElement|
+	origin := ToTextField new
+	 placeholderText: 'Enter text...'.
+
+	
+	
+	self
+		test: origin
+		on: [ :element | textElement := (((element userData at:#placeholder) children first) children first).
+			 self assert: (BlTextNonPrintableCharacterPrinter print:textElement text) equals: 'Enter text...' ]
+]
+
 { #category : #tests }
 ToSerializerTest >> testStamps [