From 2f3c1f9fee8d6720b0180f686b0691dfcede0ba5 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sun, 7 Apr 2019 18:17:32 -0400 Subject: Minor refactor. --- gix.hs | 31 +++++++++++++++++-------------- 1 file changed, 17 insertions(+), 14 deletions(-) (limited to 'gix.hs') 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 -- cgit v1.2.3