Squeak
  links to this page:    
View this PageEdit this PageUploads to this PageHistory of this PageTop of the SwikiRecent ChangesSearch the SwikiHelp Guide
AlignmentMorph newColumn and TextMorphs example
Last updated at 5:57 pm UTC on 30 August 2017
 | m tm |
 m := AlignmentMorph newColumn cellPositioning: #topLeft.

 tm := TextMorph new leftFlush; contents: 'Heading'.
 tm backgroundColor: Color white.
 m addMorphBack: tm.

 tm := TextMorph new leftFlush; contents: 'para para'.
 tm backgroundColor: Color lightBlue.
 m addMorphBack: tm.

 tm := TextMorph new leftFlush; contents: 'para2 para'.
 tm backgroundColor: Color lightGray.
 m addMorphBack: tm.

 m openInHand