=== Top of the Swiki === Attachments ===
One Window One Button
Mail List Question:
How do you create a simple application window containing a button, in Squeak? I could not find a Window class in Squeak and the View class's information is quite cryptic to the uninitiated.
The simplest one window and one button that I know:
| topView aButton |
topView := StandardSystemView new
label: 'Silly Window'.
aButton := Button newOff onAction: [Smalltalk beep].
topView addSubView: (SwitchView new
label: 'Beep' asParagraph;
insideColor: Color gray;
model: aButton; borderWidth: 1) viewport: (0@0 corner: 1@1).
topView controller open.