From 83ed5e99a162c890c25a38f4573b243b5aa6faf7 Mon Sep 17 00:00:00 2001 From: Brendan Date: Mon, 30 Mar 2026 10:59:55 +0200 Subject: [PATCH 1/2] Labels: save multiline parameter if needed --- src/Toplo-Serialization-Stash/ToLabel.extension.st | 7 ++++++- src/Toplo-Serialization-Tests/ToSerializerTest.class.st | 8 ++++++-- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/src/Toplo-Serialization-Stash/ToLabel.extension.st b/src/Toplo-Serialization-Stash/ToLabel.extension.st index 6d7abbf..571eb62 100644 --- a/src/Toplo-Serialization-Stash/ToLabel.extension.st +++ b/src/Toplo-Serialization-Stash/ToLabel.extension.st @@ -4,5 +4,10 @@ Extension { #name : #ToLabel } ToLabel >> stashAccessorsForText [ - ^ { #text } + | accessors | + accessors := OrderedCollection with: #text. + self isMultiLine ifTrue:[ + accessors add: #multiLine: -> #isMultiLine + ]. + ^ accessors ] diff --git a/src/Toplo-Serialization-Tests/ToSerializerTest.class.st b/src/Toplo-Serialization-Tests/ToSerializerTest.class.st index 4c72ac2..7ddaa12 100644 --- a/src/Toplo-Serialization-Tests/ToSerializerTest.class.st +++ b/src/Toplo-Serialization-Tests/ToSerializerTest.class.st @@ -371,10 +371,14 @@ ToSerializerTest >> testToLabel [ | origin | origin := ToLabel new text: 'hello' asRopedText; yourself. - + origin beMultiLine. self test: origin - on: [ :element | self assert: element text asString equals: 'hello' ] + on: [ :element | + self assert: element text asString equals: 'hello'. + self assert: element isMultiLine + ]. + ] { #category : #tests } From f0016d4402f9a0e50c3eff2a7706585bf0c085f1 Mon Sep 17 00:00:00 2001 From: Brendan Date: Mon, 30 Mar 2026 15:21:01 +0200 Subject: [PATCH 2/2] Fix from review --- .../ToSerializerTest.class.st | 21 ++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/src/Toplo-Serialization-Tests/ToSerializerTest.class.st b/src/Toplo-Serialization-Tests/ToSerializerTest.class.st index 7ddaa12..281805e 100644 --- a/src/Toplo-Serialization-Tests/ToSerializerTest.class.st +++ b/src/Toplo-Serialization-Tests/ToSerializerTest.class.st @@ -371,13 +371,32 @@ ToSerializerTest >> testToLabel [ | origin | origin := ToLabel new text: 'hello' asRopedText; yourself. - origin beMultiLine. + self test: origin 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 + ]. ]