[htoolkit-cvs] gio/src/examples/simple BouncingBalls.hs,1.4,1.5

[<kr_...@us...>]

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