projects
/
matthijs
/
projects
/
fpprac.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
34b8f3c
)
Add comment.
author
Matthijs Kooijman
<matthijs@stdin.nl>
Mon, 24 Aug 2009 19:55:46 +0000
(21:55 +0200)
committer
Matthijs Kooijman
<matthijs@stdin.nl>
Mon, 24 Aug 2009 19:55:46 +0000
(21:55 +0200)
FPPrac.hs
patch
|
blob
|
history
diff --git
a/FPPrac.hs
b/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