Lambda2 experiment.

1 files changed, 28 insertions, 4 deletions

diff --git a/gix.hs b/gix.hs
index 4d2fb18..2dd753a 100644
--- a/gix.hs
+++ b/gix.hs
@@ -4,8 +4,15 @@ module Main where
 
 import GI.Gtk as Gtk hiding (main)
 import qualified GI.Gtk as Gtk
+import GI.GObject.Functions
+import GI.GObject.Flags
+import Data.GI.Base.GType
 
-import Triangle as R
+import Foreign.Ptr
+
+-- import Triangle as R
+-- import LambdaHello as R
+import Lambda2 as R
 
 
 main = do
@@ -14,9 +21,26 @@ main = do
     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
+            _ <- on gl #realize       $ R.realize   st gl
+            _ <- on gl #unrealize     $ R.unrealize st gl
+            _ <- on gl #render        $ R.render    st gl
+            typ <- gobjectType gl
+            ccSig <- signalLookup "create-context" typ
+            ccid <- signalHandlerFind gl [SignalMatchTypeId] ccSig
+                0 -- detail
+                Nothing -- closure
+                nullPtr -- func
+                nullPtr -- data
+            ccqry <- signalQuery (fromIntegral ccid)
+            print (gtypeToCGType typ,ccSig,ccid {-, ccqry -}) -- (66419360,233,0)
+            _ <- on gl #createContext $ R.createContext st gl
+            ccid <- signalHandlerFind gl [SignalMatchTypeId] ccSig
+                0 -- detail
+                Nothing -- closure
+                nullPtr -- func
+                nullPtr -- data
+            print (gtypeToCGType typ,ccSig,ccid {-, ccqry -}) -- (77669760,233,47)
+            -- signalHandlerDisconnect gl ccid
             return gl
 
     window <- do