From a74a3d3f5f071d8b8017958244752811602fce38 Mon Sep 17 00:00:00 2001
From: ketmar <ketmar@ketmar.no-ip.org>
Date: Fri, 19 Nov 2010 17:01:09 +0200
Subject: [PATCH] added gui tester

---
 samples/guiTest.st | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 samples/guiTest.st

diff --git a/samples/guiTest.st b/samples/guiTest.st
new file mode 100644
index 0000000..c59afbc
--- /dev/null
+++ b/samples/guiTest.st
@@ -0,0 +1,15 @@
+Requires [ gui ]
+
+
+{
+  | box dlg |
+  System newProcessGroupWith: (Process newWithMethod: #REPL class: REPL new).
+  (box := GuiHBox new);
+    addWidget: (GuiButton new: 'test' actionBlock: [ 'test button pressed' printNl. GuiSingleton setQuitFlag ]);
+    .
+  dlg := GuiDialog new: 'First Dialog Window' widget: box.
+  dlg show.
+  "GuiSingleton message: 'starting GUI loop...'."
+  GuiSingleton addWidget: dlg.
+  GuiSingleton mainLoop.
+}
-- 
2.11.4.GIT