projects
/
matthijs
/
projects
/
fpprac.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add comment.
[matthijs/projects/fpprac.git]
/
FPPrac.hs
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