[Win32forth-cvs] win32forth/apps/Setup HYPER.F,1.1,1.2 Setup.f,1.2,1.3

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Setup
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25419/apps/Setup

Modified Files:
	HYPER.F Setup.f 
Log Message:
Fixed the console size bug (after rebuilding the system)

Index: Setup.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/Setup.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Setup.f	18 Apr 2005 17:39:22 -0000	1.2
--- Setup.f	23 Apr 2005 12:27:21 -0000	1.3
***************
*** 25,31 ****
      FLOAD ..\..\src\Keyboard.f     \ function and special key constants
      FLOAD ..\..\src\pointer.f
! \     FLOAD ..\..\src\registry.f     \ Win32 Registry support
      FLOAD ..\..\src\ansfile.f      
      FLOAD ..\..\src\shell.f
  
  \ the Setup starts here...
--- 25,32 ----
      FLOAD ..\..\src\Keyboard.f     \ function and special key constants
      FLOAD ..\..\src\pointer.f
!     FLOAD ..\..\src\registry.f     \ Win32 Registry support
      FLOAD ..\..\src\ansfile.f      
      FLOAD ..\..\src\shell.f
+     FLOAD ..\..\src\callback.f
  
  \ the Setup starts here...
***************
*** 62,80 ****
          -if   ."   invoked with commandline <" type ." >" cr
          then
! \         s" console" getsetting regsett place
! \         s" 80,80,520,600" s" console" setsetting
          GetSystemDirectory ;
  
! : setupterm     ( -- )
!         1 Show-Window
! \         regsett count s" console" setsetting 
!         ;
  
  : setup-bye     ( -- )
!         setupterm bye ;
  
  : wait&bye cr
!            ." Press any key to exit..." ekey setup-bye ;
! 
  
  3 proc CopyFile
--- 63,81 ----
          -if   ."   invoked with commandline <" type ." >" cr
          then
!         s" console" getsetting regsett place \ save current console window size
!         s" 80,80,600,400" s" console" setsetting
          GetSystemDirectory ;
  
! 0 callback &noop noop \ a noop-callback 
  
  : setup-bye     ( -- )
!         &CB-BYE @ &noop &CB-BYE !  \ make BYE a noop; so that destroying the console
!         defer@ bye ['] noop is bye \ window will not terminate the setup
!         _conHndl call DestroyWindow drop \ destroy the console window
!         regsett count s" console" setsetting \ restore console window size in registry
!         unload-forth 0 Call ExitProcess ; \ exit setup
  
  : wait&bye cr
!            ." Press any key to exit..." ekey drop setup-bye ;
  
  3 proc CopyFile

Index: HYPER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Setup/HYPER.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** HYPER.F	21 Dec 2004 00:18:49 -0000	1.1
--- HYPER.F	23 Apr 2005 12:27:21 -0000	1.2
***************
*** 36,40 ****
  anew -hyper.f
  
! .( Loading Hyper...)
  
  \ Runtime allocated MAXSTRING length buffers
--- 36,40 ----
  anew -hyper.f
  
! cr .( Loading Hyper...)
  
  \ Runtime allocated MAXSTRING length buffers