Forward port ManagedPtr usage.

1 files changed, 3 insertions, 3 deletions

diff --git a/GLWidget.hs b/GLWidget.hs
index 681083f..19ef129 100644
--- a/GLWidget.hs
+++ b/GLWidget.hs
@@ -14,6 +14,7 @@ import Foreign.Ptr
 import GI.Gdk.Objects (GLContext(..),windowCreateGlContext)
 import qualified GI.Gtk           as Gtk
          ;import GI.Gtk           as Gtk hiding (main)
+import Data.GI.Base.ManagedPtr (newManagedPtr)
 import System.IO
 
 data WidgetMethods st = WidgetMethods
@@ -70,9 +71,8 @@ nullableContext mk = mk >>= maybe mknull return
   where
     mknull = do
         oops "createContext: GLArea has no window."
-        fp <- newForeignPtr_ nullPtr
-        disown <- newIORef Nothing
-        return $ GLContext $ ManagedPtr fp disown
+        mptr <- newManagedPtr nullPtr (return ())
+        return $ GLContext mptr
 
 oopsG :: GError -> IO ()
 oopsG e = do