diff --git a/src/Toplo-Serialization-Stash/ToTextField.extension.st b/src/Toplo-Serialization-Stash/ToTextField.extension.st new file mode 100644 index 0000000..b94d944 --- /dev/null +++ b/src/Toplo-Serialization-Stash/ToTextField.extension.st @@ -0,0 +1,13 @@ +Extension { #name : #ToTextField } + +{ #category : #'*Toplo-Serialization-Stash' } +ToTextField >> stashPlaceholder [ + + + self userData at: #placeholder ifAbsent: [ ^ { } ]. + ^ { ([ :e | + ' placeholderText: ''' + , (BlTextNonPrintableCharacterPrinter print: + (self userData at: #placeholder) children first children first + text) , ''''] -> self) onlySetOnStash } +] diff --git a/src/Toplo-Serialization-Tests/ToSerializerTest.class.st b/src/Toplo-Serialization-Tests/ToSerializerTest.class.st index 4c72ac2..6e27d3c 100644 --- a/src/Toplo-Serialization-Tests/ToSerializerTest.class.st +++ b/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 [