summaryrefslogtreecommitdiff
path: root/test/test.icl
diff options
context:
space:
mode:
authorCamil Staps2019-10-19 19:57:53 +0200
committerCamil Staps2019-10-20 09:11:19 +0200
commitad98343da1467653dacc811a9e52b7da2282c200 (patch)
tree159ee3beadf5ddb022d1640ba441aebee7f39a54 /test/test.icl
Initial commit
Diffstat (limited to 'test/test.icl')
-rw-r--r--test/test.icl18
1 files changed, 18 insertions, 0 deletions
diff --git a/test/test.icl b/test/test.icl
new file mode 100644
index 0000000..5717add
--- /dev/null
+++ b/test/test.icl
@@ -0,0 +1,18 @@
+module test
+
+import StdMaybe
+
+import Control.Applicative
+import Control.Monad
+import Control.Monad.Identity
+import Control.Monad.State
+
+import Gtk.Signal
+import Gtk.State
+import Gtk.Widgets
+
+Start w = runGtk app w
+where
+ app =
+ newWindow "Hello!" Nothing >>= \window ->
+ installSignalHandler window (DestroyHandler quit)