Updated gix family of demos.

1 files changed, 3 insertions, 4 deletions

diff --git a/Draw.hs b/Draw.hs
index 3377548..05d3d03 100644
--- a/Draw.hs
+++ b/Draw.hs
@@ -4,7 +4,7 @@ module Draw where
 import Control.Concurrent
 import Data.Int
 import Data.IORef
-import Foreign.ForeignPtr
+import Data.GI.Base.ManagedPtr (newManagedPtr)
 import Foreign.Ptr
 import GI.Gdk.Objects
 import GI.Gtk
@@ -50,9 +50,8 @@ createContext st glarea = do
         Just win -> windowCreateGlContext win
         Nothing  -> do
             oops "createContext: GLArea has no window."
-            fp <- newForeignPtr_ nullPtr
-            disown <- newIORef Nothing
-            return $ GLContext $ ManagedPtr fp disown
+            mp <- newManagedPtr nullPtr (return ())
+            return $ GLContext mp
 
 oops :: String -> IO ()
 oops s = hPutStrLn stderr s