[Win32forth-cvs] win32forth/apps/Setup Setup.f,1.23,1.24

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

Update of /cvsroot/win32forth/win32forth/apps/Setup
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19966

Modified Files:
	Setup.f 
Log Message:
Rod: added \in-system-ok before some console words

Index: Setup.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** Setup.f	19 Dec 2008 12:48:34 -0000	1.23
--- Setup.f	19 Dec 2008 23:05:47 -0000	1.24
***************
*** 38,42 ****
      FLOAD ..\..\src\Keyboard.f     \ function and special key constants
  
- 
  \ the Setup starts here...
  
--- 38,41 ----
***************
*** 66,70 ****
                  base ! ;
  : setupinit
!         3 Show-Window
          cls
          ." Win32Forth " .version ." - Setup Program" cr cr
--- 65,69 ----
                  base ! ;
  : setupinit
! \in-system-ok        3 Show-Window
          cls
          ." Win32Forth " .version ." - Setup Program" cr cr
***************
*** 545,549 ****
  2 PROC SetWindowText
  : setup ( -- ) \ Install win32forth
!         show-console normal-console
  
          z" Win32Forth Setup" CONHNDL call SetWindowText drop
--- 544,548 ----
  2 PROC SetWindowText
  : setup ( -- ) \ Install win32forth
! \in-system-ok        show-console normal-console
  
          z" Win32Forth Setup" CONHNDL call SetWindowText drop