[Gtk2hs-commit] (main branch): Change the way objects are destructed.

[Axel S. <si...@co...>]

Mon Oct 26 12:23:57 EDT 2009  Axe...@en...
  * Change the way objects are destructed.

    hunk ./glib/System/Glib/GObject.chs.pp 37
    -  objectUnref,
    hunk ./glib/System/Glib/GObject.chs.pp 105
    --- | Decrease the reference counter of an object
    ---
    -foreign import ccall unsafe "&g_object_unref"
    -  objectUnref :: FinalizerPtr a
    -
    hunk ./glib/System/Glib/GObject.chs.pp 113
    - => (ForeignPtr obj -> obj) -- ^ constructor for the Haskell object
    + => (ForeignPtr obj -> obj, FinalizerPtr obj)
    +    -- ^ constructor for the Haskell object and finalizer C function
    hunk ./glib/System/Glib/GObject.chs.pp 117
    -makeNewGObject constr generator = do
    +makeNewGObject (constr, objectUnref) generator = do
    hunk ./glib/System/Glib/GObject.chs.pp 134
    -  (ForeignPtr obj -> obj) -> IO (Ptr obj) -> IO obj
    -constructNewGObject constr generator = do
    +  (ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
    +constructNewGObject (constr, objectUnref) generator = do
    hunk ./glib/System/Glib/Types.chs 38
    +  objectUnref
    hunk ./glib/System/Glib/Types.chs 41
    -import Foreign (ForeignPtr)
    +import System.Glib.FFI
    hunk ./glib/System/Glib/Types.chs 47
    -mkGObject = GObject
    +mkGObject = (GObject, objectUnref)
    hunk ./glib/System/Glib/Types.chs 64
    +
    +-- | Decrease the reference counter of an object
    +--
    +foreign import ccall unsafe "&g_object_unref"
    +  objectUnref :: FinalizerPtr a
    +