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
|
