samples/guiTest.st

   1 Requires [ gui ]
   2
   3
   4 {
   5   | box dlg |
   6   System newProcessGroupWith: (Process newWithMethod: #REPL class: REPL new).
   7   (box := GuiHBox new);
   8     addWidget: (GuiButton new: 'test' actionBlock: [ 'test button pressed' printNl. GuiSingleton setQuitFlag ]);
   9     .
  10   dlg := GuiDialog new: 'First Dialog Window' widget: box.
  11   dlg show.
  12   "GuiSingleton message: 'starting GUI loop...'."
  13   GuiSingleton addWidget: dlg.
  14   GuiSingleton mainLoop.
  15 }