Update of /cvsroot/win32forth/win32forth/demos
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3900
Modified Files:
WINBROWS.F WINDEMO.F
Log Message:
Jos: Adapted for the new console.
Index: WINBROWS.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/WINBROWS.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** WINBROWS.F 18 Jul 2008 23:05:41 -0000 1.4
--- WINBROWS.F 17 Aug 2008 12:31:11 -0000 1.5
***************
*** 576,581 ****
again ;
! ' winbrowse turnkey winbrows \ save the new application program .EXE and .IMG
5 pause-seconds \ pause for user to see what happened
--- 576,584 ----
again ;
! \ The keyboard is used, so it needs a hidden console in the program.
!
! in-hidden-console 0 0 ' winbrowse APPLICATION winbrowse.exe
5 pause-seconds \ pause for user to see what happened
+ \s
Index: WINDEMO.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/WINDEMO.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** WINDEMO.F 5 May 2005 09:43:29 -0000 1.2
--- WINDEMO.F 17 Aug 2008 12:31:11 -0000 1.3
***************
*** 1072,1082 ****
'C' +k_control of false copy-demo-bitmap endof
'C' +k_control +k_shift of true copy-demo-bitmap endof
! 'X' +k_control of false copy-demo-bitmap
k_esc pushkey endof
endcase
again ;
! ' windemo turnkey windemo \ build an application on disk
5 pause-seconds
- |
