Update of /cvsroot/htoolkit/gio/src/examples/simple
In directory sc8-pr-cvs1:/tmp/cvs-serv18920
Modified Files:
Hanoi.hs
Log Message:
Replace drawInWindow with paintIn function.
Index: Hanoi.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/simple/Hanoi.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Hanoi.hs 15 Aug 2003 21:24:54 -0000 1.3
--- Hanoi.hs 24 Aug 2003 15:35:56 -0000 1.4
***************
*** 84,88 ****
set timer [enabled =: False]
stepHanoi towers = do
! drawInWindow UnBuffered w drawf
writeIORef ref towers1
where
--- 84,88 ----
set timer [enabled =: False]
stepHanoi towers = do
! paintIn w UnBuffered drawf
writeIORef ref towers1
where
|
