morph basics

gistfile1.txt

m := Morph new.
m openInWorld.

m extent: 50@50.
m height: 100.
m width: 50.

m openInWindowLabeled: 'My First Morph'.

editor :=  TextMorph new.
editor openInWindow.
window := SystemWindow new.
window openInWorld .
window addMorph: editor frame: ( 0@0 extent: 100@100).
editor backgroundColor: Color black.
window setLabel: 'My editor'.
sm := StringMorph contents: 'Hello World'.
window addMorph: sm frame: (0@0 extent: 100@100).
sm color: (Color red).
sm position: 300@300.
sm openInWindow.
window submorphs.

m2 := Morph new.
m2 color: (Color red).
window addMorph: m2 frame: ( 0@100 extent: 200@200).

window submorphs.