diff options
Diffstat (limited to 'mainObj2.hs')
-rw-r--r-- | mainObj2.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mainObj2.hs b/mainObj2.hs index 6195950..7695120 100644 --- a/mainObj2.hs +++ b/mainObj2.hs | |||
@@ -20,7 +20,7 @@ main = do | |||
20 | 20 | ||
21 | window <- do | 21 | window <- do |
22 | w <- windowNew WindowTypeToplevel | 22 | w <- windowNew WindowTypeToplevel |
23 | windowSetDefaultSize w 720 720 | 23 | windowSetDefaultSize w 360 360 |
24 | windowSetTitle w "Mesh Maker" | 24 | windowSetTitle w "Mesh Maker" |
25 | _ <- on w #deleteEvent $ \_ -> mainQuit >> return True | 25 | _ <- on w #deleteEvent $ \_ -> mainQuit >> return True |
26 | child <- mkChild | 26 | child <- mkChild |