diff --git a/src/Toplo-Serialization-Tests/ToSerializerTest.class.st b/src/Toplo-Serialization-Tests/ToSerializerTest.class.st index 9f4babb..f84767b 100644 --- a/src/Toplo-Serialization-Tests/ToSerializerTest.class.st +++ b/src/Toplo-Serialization-Tests/ToSerializerTest.class.st @@ -448,6 +448,62 @@ ToSerializerTest >> testToListElement [ self assert: element toConfiguration rowNumbers ] ] +{ #category : #tests } +ToSerializerTest >> testToPane [ + + | origin | + origin := ToPane new. + + self test: origin on: [ :element | + self assert: element background isTransparent + ]. + + origin background: Color red. + + self test: origin on: [ :element | + self assert: element background paint color equals: Color red. + ] + +] + +{ #category : #tests } +ToSerializerTest >> testToPane2 [ + + | origin | + origin := ToPane new. + + self test: origin on: [ :element | + self deny: element hasChildren + ]. + 1 to: 5 do:[:i | + origin addChild: BlElement new + ]. + + self test: origin on: [ :element | + self assert: element hasChildren. + self assert: element children size equals: 5 + ] + +] + +{ #category : #tests } +ToSerializerTest >> testToPane3 [ + + | origin | + origin := ToPane new. + + self test: origin on: [ :element | + self assert: element layout class equals: BlLinearLayout. + ]. + + origin layout: BlFrameLayout new. + + self test: origin on: [ :element | + self assert: element layout class equals: BlFrameLayout. + ] + +] + { #category : #tests } ToSerializerTest >> testToRadioButton1 [