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")
|
