Minor refactor.

1 files changed, 17 insertions, 14 deletions

diff --git a/gix.hs b/gix.hs
index 70d05f5..4d2fb18 100644
--- a/gix.hs
+++ b/gix.hs
@@ -11,21 +11,24 @@ import Triangle as R
 main = do
     _ <- Gtk.init Nothing
 
-    window <- windowNew WindowTypeToplevel
-    windowSetDefaultSize window 1000 1000
-    windowSetTitle window "GL Area"
-    containerSetBorderWidth window 10
+    let mkChild = do
+            gl <- gLAreaNew
+            st <- R.initState
+            _ <- on gl #realize   $ R.realize   st gl
+            _ <- on gl #unrealize $ R.unrealize st gl
+            _ <- on gl #render    $ R.render    st gl
+            return gl
+
+    window <- do
+        w <- windowNew WindowTypeToplevel
+        windowSetDefaultSize    w 1000 1000
+        windowSetTitle          w "GL Area"
+        containerSetBorderWidth w 10
+        _ <- on w #deleteEvent $ \_ -> mainQuit >> return True
+        child <- mkChild
+        containerAdd w child
+        return w
 
-    gl_area <- gLAreaNew
-    containerAdd window gl_area
-
-    st <- R.initState
-
-    _ <- on gl_area #realize   $ R.realize st gl_area
-    _ <- on gl_area #unrealize $ R.unrealize gl_area
-    _ <- on gl_area #render    $ R.render st gl_area
-
-    _ <- on window #deleteEvent $ \_ -> mainQuit >> return True
     widgetShowAll window
     Gtk.main