Update of /cvsroot/htoolkit/gio/src/examples/simple
In directory sc8-pr-cvs1:/tmp/cvs-serv6857
Modified Files:
BouncingBalls.hs
Log Message:
bugfix: The window background should be white. The bufferMode is set to Buffered
Index: BouncingBalls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/BouncingBalls.hs,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** BouncingBalls.hs 30 May 2003 11:58:16 -0000 1.4
--- BouncingBalls.hs 3 Jul 2003 16:49:55 -0000 1.5
***************
*** 9,13 ****
= do vballs <- newVar []
! w <- window [resizeable =: True, view =: sz maxX maxY]
set w [ on paint =: paintBalls vballs
, on click =: dropBall w vballs
--- 9,13 ----
= do vballs <- newVar []
! w <- window [resizeable =: True, view =: sz maxX maxY, bufferMode =: Buffered]
set w [ on paint =: paintBalls vballs
, on click =: dropBall w vballs
***************
*** 40,44 ****
paintBalls vballs can updframe updareas
! = do setCanvasPen can [color =: lightgray]
fillRect updframe can
balls <- getVar vballs
--- 40,44 ----
paintBalls vballs can updframe updareas
! = do setCanvasPen can [color =: white]
fillRect updframe can
balls <- getVar vballs
|
