[Gtk2hs-commit] (main branch): Add wrapNewGObject to glib/**/GObject.chs

[Andy S. <And...@co...>]

diffing dir...
Wed Oct 20 20:37:01 EDT 2010  John Obbele <joh...@gm...>
  * Add wrapNewGObject to glib/**/GObject.chs
  Ignore-this: 9f5af0a8896f9cc4b83f84da5c97a5ab
    {
    hunk ./glib/System/Glib/GObject.chs 43
    +  wrapNewGObject,
    hunk ./glib/System/Glib/GObject.chs 149
    +-- | This function wraps any newly created object that does not derived
    +-- from GInitiallyUnowned (that is a GObject with no floating
    +-- reference). Since newly created 'GObject's have a reference count of
    +-- one, they don't need ref'ing.
    +--
    +wrapNewGObject :: GObjectClass obj => [_$_]
    +  (ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
    +wrapNewGObject (constr, objectUnref) generator = do
    +  objPtr <- generator
    +  when (objPtr == nullPtr) (fail "wrapNewGObject: object is NULL")
    +  obj <- newForeignPtr objPtr objectUnref
    +  return $! constr obj
    +
    }