[Gtk2hs-commit] (main branch): Bind GtkObject's destroy signal

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

Thu Apr 30 11:21:24 EDT 2009  m....@gm...
  * Bind GtkObject's destroy signal
  Ignore-this: b67612a0e13a5cabc2c3392cb78fadaf

    hunk ./demo/carsim/CarSim.hs 252
    -    on mainWindow destroyEvent $
    -     liftIO $ mainQuit >> return True
    +    on mainWindow objectDestroy mainQuit
    hunk ./demo/pango/Layout.hs 3
    +import Graphics.UI.Gtk.Gdk.EventM
    hunk ./demo/pango/Layout.hs 19
    -  win `onDestroy` mainQuit
    +  on win objectDestroy mainQuit
    hunk ./demo/pango/Layout.hs 23
    -  area `onSizeRequest` return (Requisition 100 100)
    +  on area sizeRequest $ return (Requisition 100 100)
    hunk ./demo/pango/Layout.hs 32
    -  area `onSizeAllocate` \(Rectangle _ _ w _) -> do
    +  on area sizeAllocate $ \(Rectangle _ _ w _) -> do
    hunk ./demo/pango/Layout.hs 36
    -  area `onExpose` updateArea area lay
    +  on area exposeEvent $ updateArea area lay
    hunk ./demo/pango/Layout.hs 42
    -updateArea :: DrawingArea -> PangoLayout -> Event -> IO Bool
    -updateArea area lay Expose {} = do
    -  win <- widgetGetDrawWindow area
    +updateArea :: DrawingArea -> PangoLayout -> EventM EExpose Bool
    +updateArea area lay = do
    +  win <- eventWindow
    +  liftIO $ do
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs.pp 62
    +
    +-- * Signals
    +  objectDestroy
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs.pp 77
    +{#import Graphics.UI.Gtk.Signals#}
    hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs.pp 117
    +
    +
    +--------------------
    +-- Signals
    +
    +-- | Signals that all holders of a reference to the 'Object' should release
    +-- the reference that they hold. May result in finalization of the object if
    +-- all references are released.
    +--
    +objectDestroy :: ObjectClass self => Signal self (IO ())
    +objectDestroy = Signal (connect_NONE__NONE "destroy")