summaryrefslogtreecommitdiff
path: root/mainObj2.hs
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2019-04-26 12:27:56 -0400
committerJoe Crayne <joe@jerkface.net>2019-04-26 12:27:56 -0400
commit98d08f9b94840c442d3352be6f1cd3f4c76c33c6 (patch)
treeab790b55f3fc041b740fb5b6bc14e935094a58ca /mainObj2.hs
parent53a8452962883df9529a7cf5119a1d9663fb8329 (diff)
Renamed MeshMaker to MeshSketch.
Diffstat (limited to 'mainObj2.hs')
-rw-r--r--mainObj2.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/mainObj2.hs b/mainObj2.hs
index 7695120..909af2c 100644
--- a/mainObj2.hs
+++ b/mainObj2.hs
@@ -10,18 +10,18 @@ import Data.GI.Base.GType
10 10
11import Foreign.Ptr 11import Foreign.Ptr
12 12
13import qualified MeshMaker 13import qualified MeshSketch
14 14
15 15
16main = do 16main = do
17 _ <- Gtk.init Nothing 17 _ <- Gtk.init Nothing
18 18
19 let mkChild = MeshMaker.new 19 let mkChild = MeshSketch.new
20 20
21 window <- do 21 window <- do
22 w <- windowNew WindowTypeToplevel 22 w <- windowNew WindowTypeToplevel
23 windowSetDefaultSize w 360 360 23 windowSetDefaultSize w 360 360
24 windowSetTitle w "Mesh Maker" 24 windowSetTitle w "MeshSketch"
25 _ <- on w #deleteEvent $ \_ -> mainQuit >> return True 25 _ <- on w #deleteEvent $ \_ -> mainQuit >> return True
26 child <- mkChild 26 child <- mkChild
27 containerAdd w child 27 containerAdd w child