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:
eda52aa
)
Make testProg produce readable (non-overlapping) output.
master
author
Matthijs Kooijman
<matthijs@stdin.nl>
Mon, 24 Aug 2009 20:09:43 +0000
(22:09 +0200)
committer
Matthijs Kooijman
<matthijs@stdin.nl>
Mon, 24 Aug 2009 20:09:43 +0000
(22:09 +0200)
FPPrac.hs
patch
|
blob
|
history
diff --git
a/FPPrac.hs
b/FPPrac.hs
index 2a67b6e7d9a9f1904a2b0ff2e93d1357b57c3b5f..306f048001dca25e62b2864c98e2b01fda06af78 100644
(file)
--- a/
FPPrac.hs
+++ b/
FPPrac.hs
@@
-93,7
+93,7
@@
data TinaProgram = forall s. Main
testProg = Main
{ initialState = 1
, initialRequests = [GfxText red (pt 0 0) "foo", GfxText blue (pt 100 100) "bar"]
testProg = Main
{ initialState = 1
, initialRequests = [GfxText red (pt 0 0) "foo", GfxText blue (pt 100 100) "bar"]
- , eventHandler = \s e -> (s+1,[GfxText green (pt 50
50
) $ show (s,e)])
+ , eventHandler = \s e -> (s+1,[GfxText green (pt 50
(50 + 10 * s)
) $ show (s,e)])
, windowWidth = 200
, windowHeight = 200
}
, windowWidth = 200
, windowHeight = 200
}