[Win32forth-cvs] win32forth/src Primutil.f, 1.44, 1.45 Utils.f, 1.23, 1.24

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

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

Modified Files:
	Primutil.f Utils.f 
Log Message:
Rod: added SCROLLTOVIEW in pause-seconds

Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** Utils.f	20 Dec 2008 12:57:02 -0000	1.23
--- Utils.f	27 Dec 2008 16:06:49 -0000	1.24
***************
*** 511,514 ****
--- 511,515 ----
  : pause-seconds ( n1 -- )
                  cr ." Delaying: " dup . ." seconds, press a key to HOLD "
+                 SCROLLTOVIEW
                  30 min 1 max 10 * 0
                  ?do     100 ms

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.44
retrieving revision 1.45
diff -C2 -d -r1.44 -r1.45
*** Primutil.f	26 Dec 2008 17:12:03 -0000	1.44
--- Primutil.f	27 Dec 2008 16:06:49 -0000	1.45
***************
*** 837,841 ****
                  ['] K_NOOP1 IS GETROWOFF
                  ['] K_NOOP1 IS &THE-SCREEN
!                 ['] _conHndl IS ConHndl
                  \ reset BYE to default ( although should have never changed)
                  ['] k_bye   IS bye ;
--- 837,841 ----
                  ['] K_NOOP1 IS GETROWOFF
                  ['] K_NOOP1 IS &THE-SCREEN
!                 ['] NOOP    IS SCROLLTOVIEW
                  \ reset BYE to default ( although should have never changed)
                  ['] k_bye   IS bye ;
***************
*** 869,872 ****
--- 869,873 ----
                  ['] K_NOOP1 IS GETROWOFF
                  ['] K_NOOP1 IS &THE-SCREEN
+                 ['] NOOP    IS SCROLLTOVIEW
                  \ reset BYE to default ( althought should have never changed)
                  ['] k_bye   IS bye ;