Merge pull request #25 from OpenSmock/devLabelsMultiline

Labels: save multiline parameter if needed

Author: LANDAISB

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

@@ -4,5 +4,10 @@ Extension { #name : #ToLabel }
 ToLabel >> stashAccessorsForText [
 
 	<stashAccessors>
-	^ { #text }
+	| accessors |
+	accessors := OrderedCollection with: #text.
+	self isMultiLine ifTrue:[
+		accessors add: #multiLine: -> #isMultiLine
+	].
+	^ accessors
 ]

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

@@ -374,7 +374,30 @@ ToSerializerTest >> testToLabel [
 
 	self
 		test: origin
-		on: [ :element | self assert: element text asString equals: 'hello' ]
+		on: [ :element | 
+			self assert: element text asString equals: 'hello'.
+	].
+		
+]
+
+{ #category : #tests }
+ToSerializerTest >> testToLabelMultiLine [
+
+	| origin |
+	origin := ToLabel new text: 'hello' asRopedText; yourself.
+	origin beMultiLine.
+	self
+		test: origin
+		on: [ :element | 
+			self assert: element isMultiLine 
+	].
+	origin beMonoLine.
+	self
+		test: origin
+		on: [ :element | 
+			self deny: element isMultiLine 
+	].
+		
 ]
 
 { #category : #tests }