diff options
Diffstat (limited to 'mainObj2.hs')
-rw-r--r-- | mainObj2.hs | 32 |
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 @@ | |||
1 | {-# LANGUAGE OverloadedLabels #-} | ||
2 | {-# LANGUAGE OverloadedStrings #-} | ||
3 | module Main where | ||
4 | |||
5 | import GI.Gtk as Gtk hiding (main) | ||
6 | import qualified GI.Gtk as Gtk | ||
7 | import GI.GObject.Functions | ||
8 | import GI.GObject.Flags | ||
9 | import Data.GI.Base.GType | ||
10 | |||
11 | import Foreign.Ptr | ||
12 | |||
13 | import qualified MeshMaker | ||
14 | |||
15 | |||
16 | main = do | ||
17 | _ <- Gtk.init Nothing | ||
18 | |||
19 | let mkChild = MeshMaker.new | ||
20 | |||
21 | window <- do | ||
22 | w <- windowNew WindowTypeToplevel | ||
23 | windowSetDefaultSize w 720 720 | ||
24 | windowSetTitle w "Mesh Maker" | ||
25 | _ <- on w #deleteEvent $ \_ -> mainQuit >> return True | ||
26 | child <- mkChild | ||
27 | containerAdd w child | ||
28 | return w | ||
29 | |||
30 | widgetShowAll window | ||
31 | Gtk.main | ||
32 | |||