Создаём окно

Создаём пустое окно:

CLASS: MyWindow <SUPER FrameWindow

;CLASS

: main { \ w -- }
MyWindow NEW TO w
WITH MyWindow
0 w => Create
S" Окно" w => SetText
350 300 w => Center
w => Show
w => Run
w DELETE
ENDWITH
;