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
|
