[Win32forth-cvs] win32forth/src Utils.f,1.22,1.23

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv4104

Modified Files:
	Utils.f 
Log Message:
Jos: winpause enables the handling of messages while waiting. (As it was before).

Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Utils.f	3 Aug 2008 11:08:48 -0000	1.22
--- Utils.f	20 Dec 2008 12:57:02 -0000	1.23
***************
*** 497,501 ****
                  0max 0
                  ?do     10 0
!                         do      100 ms
                                  key?
                                  if      key drop
--- 497,501 ----
                  0max 0
                  ?do     10 0
!                         do      winpause 100 ms
                                  key?
                                  if      key drop