Example using GLArea without gtk-declarative.

1 files changed, 31 insertions, 0 deletions

diff --git a/gix.hs b/gix.hs
new file mode 100644
index 0000000..70d05f5
--- /dev/null
+++ b/gix.hs
@@ -0,0 +1,31 @@
+{-# LANGUAGE OverloadedLabels #-}
+{-# LANGUAGE OverloadedStrings #-}
+module Main where
+
+import GI.Gtk as Gtk hiding (main)
+import qualified GI.Gtk as Gtk
+
+import Triangle as R
+
+
+main = do
+    _ <- Gtk.init Nothing
+
+    window <- windowNew WindowTypeToplevel
+    windowSetDefaultSize window 1000 1000
+    windowSetTitle window "GL Area"
+    containerSetBorderWidth window 10
+
+    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
+