[Win32forth-cvs] win32forth/src Utils.f,1.25,1.26

[Rod O. <rod...@us...>]

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

Modified Files:
	Utils.f 
Log Message:
Rod: put SCROLLTOVIEW back in pause-seconds removed it from _MS which was causing too much updating of the scrollbar in taskdemo.f

Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** Utils.f	23 Jan 2009 16:27:54 -0000	1.25
--- Utils.f	19 May 2009 17:54:54 -0000	1.26
***************
*** 490,496 ****
  \ September 17th, 2003 - 10:38 dbu
  : _MS           ( u -- )       \ delay u milli-seconds or forever if u=-1.
!                 dup Call Sleep drop
!                 IF  SCROLLTOVIEW  THEN   \ update the console after a delay
!                 ;
  
  ' _MS IS MS
--- 490,494 ----
  \ September 17th, 2003 - 10:38 dbu
  : _MS           ( u -- )       \ delay u milli-seconds or forever if u=-1.
!                 Call Sleep drop ;
  
  ' _MS IS MS
***************
*** 513,516 ****
--- 511,515 ----
  : pause-seconds ( n1 -- )
                  cr ." Delaying: " dup . ." seconds, press a key to HOLD "
+                 SCROLLTOVIEW
                  30 min 1 max 10 * 0
                  ?do     100 ms