1 files changed, 32 insertions, 0 deletions

diff --git a/mainObj2.hs b/mainObj2.hs
new file mode 100644
index 0000000..6195950
--- /dev/null
+++ b/mainObj2.hs
@@ -0,0 +1,32 @@
+{-# LANGUAGE OverloadedLabels #-}
+{-# LANGUAGE OverloadedStrings #-}
+module Main where
+
+import GI.Gtk as Gtk hiding (main)
+import qualified GI.Gtk as Gtk
+import GI.GObject.Functions
+import GI.GObject.Flags
+import Data.GI.Base.GType
+
+import Foreign.Ptr
+
+import qualified MeshMaker
+
+
+main = do
+    _ <- Gtk.init Nothing
+
+    let mkChild = MeshMaker.new
+
+    window <- do
+        w <- windowNew WindowTypeToplevel
+        windowSetDefaultSize    w 720 720
+        windowSetTitle          w "Mesh Maker"
+        _ <- on w #deleteEvent $ \_ -> mainQuit >> return True
+        child <- mkChild
+        containerAdd w child
+        return w
+
+    widgetShowAll window
+    Gtk.main
+