=== 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.