[htoolkit-cvs] gio/src/examples/simple Hanoi.hs,1.3,1.4

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

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