[Gtk2hs-commit] (main branch): Swap Events for EventM.

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

Tue Dec  2 11:39:18 EST 2008  Axe...@en...
  * Swap Events for EventM.

    hunk ./demo/svg/SvgViewer.hs 5
    +import Graphics.UI.Gtk.Gdk.EventM
    hunk ./demo/svg/SvgViewer.hs 22
    -  onExpose canvas $ updateCanvas canvas svg
    +  canvas `on` exposeEvent $ updateCanvas canvas svg
    hunk ./demo/svg/SvgViewer.hs 28
    -updateCanvas :: DrawingArea -> SVG -> Event -> IO Bool
    -updateCanvas canvas svg (Expose { eventArea=rect }) = do
    -  win <- widgetGetDrawWindow canvas
    +updateCanvas :: DrawingArea -> SVG -> EventM EExpose Bool
    +updateCanvas canvas svg = do
    +  win <- eventWindow
    +  liftIO $ do