Add comment.
authorMatthijs Kooijman <matthijs@stdin.nl>
Mon, 24 Aug 2009 19:55:46 +0000 (21:55 +0200)
committerMatthijs Kooijman <matthijs@stdin.nl>
Mon, 24 Aug 2009 19:55:46 +0000 (21:55 +0200)
FPPrac.hs

index 7e5a6914225519e0d3056b50344467794f405091..9f5ec9d68eb5f5d4c7d523ed9745b51b7bbae8db 100644 (file)
--- a/FPPrac.hs
+++ b/FPPrac.hs
@@ -177,7 +177,8 @@ runGUI w h (IS { .. }) = do
        Gtk.mainGUI
        
 
        Gtk.mainGUI
        
 
--- | Copy the given surface to the exposed window on an expose event.
+-- | Called when (part of) the window should be redrawn. Copy the given surface
+--   to the exposed window on an expose event.
 onExpose :: IORef Cairo.Surface -> EventM.EventM EventM.EExpose Bool
 onExpose buffer = do
        current_buffer <- liftIO $ readIORef buffer
 onExpose :: IORef Cairo.Surface -> EventM.EventM EventM.EExpose Bool
 onExpose buffer = do
        current_buffer <- liftIO $ readIORef buffer