RosettaCodeData/Task/Window-creation/Forth/window-creation-2.fth

6 lines
218 B
Forth

Window+ w \ create a window
View v \ create a view
300 30 430 230 put: frameRect \ size a rectangle for the view
frameRect " Test" docWindow v new: w \ activate the view and window
show: w \ display the window