[htoolkit-cvs] gio/src/examples/worm Main.hs,1.8,1.9

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

Update of /cvsroot/htoolkit/gio/src/examples/worm
In directory sc8-pr-cvs1:/tmp/cvs-serv24479/worm

Modified Files:
	Main.hs 
Log Message:
update


Index: Main.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/worm/Main.hs,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Main.hs	15 Aug 2003 21:24:55 -0000	1.8
--- Main.hs	4 Oct 2003 08:34:24 -0000	1.9
***************
*** 133,137 ****
          DecreaseLevel -> switchLevel state1
          Collide       -> nextLife state
!         _             -> drawInWindow UnBuffered w (drawStep state state1)
          where
              switchLevel :: State -> IO ()
--- 133,137 ----
          DecreaseLevel -> switchLevel state1
          Collide       -> nextLife state
!         _             -> paintIn w UnBuffered (drawStep state state1)
          where
              switchLevel :: State -> IO ()
***************
*** 147,151 ****
                              set tm [on command =: betweenLevels 2 1]
                          | animationStep<=nrAnimationSteps = do
!                             drawInWindow UnBuffered w 
                                  (drawAnimation animationStep step)
                              set tm [on command =: betweenLevels (animationStep+step) step]
--- 147,151 ----
                              set tm [on command =: betweenLevels 2 1]
                          | animationStep<=nrAnimationSteps = do
!                             paintIn w UnBuffered
                                  (drawAnimation animationStep step)
                              set tm [on command =: betweenLevels (animationStep+step) step]
***************
*** 169,173 ****
                          deadWorm :: Worm -> IO ()
                          deadWorm (segment:rest) = do
!                             drawInWindow UnBuffered w (eraseSegment segment)
                              set tm [on command =: deadWorm rest]
                          deadWorm [] = do
--- 169,173 ----
                          deadWorm :: Worm -> IO ()
                          deadWorm (segment:rest) = do
!                             paintIn w UnBuffered (eraseSegment segment)
                              set tm [on command =: deadWorm rest]
                          deadWorm [] = do