Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22383
Modified Files:
ConsoleMenu.f
Log Message:
Jos: Enabled F12 in Win32Forth and ForthForm in order to compile a project in a quick way.
The last opened projectfile of the IDE is used
Index: ConsoleMenu.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/ConsoleMenu.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** ConsoleMenu.f 24 Feb 2007 16:49:44 -0000 1.8
--- ConsoleMenu.f 25 Feb 2007 19:05:07 -0000 1.9
***************
*** 114,119 ****
over [ 'W' +k_control ] literal =
if 0= open-web EXIT then
over [ 'L' +k_control ] literal =
! if 0= load-forth EXIT then
over [ 'P' +k_control ] literal =
if 0= print-screen EXIT then
--- 114,121 ----
over [ 'W' +k_control ] literal =
if 0= open-web EXIT then
+ over [ K_F12 ] literal =
+ if 0= 2>r >r LoadProject r> 2r> EXIT then
over [ 'L' +k_control ] literal =
! if 0= load-forth EXIT then
over [ 'P' +k_control ] literal =
if 0= print-screen EXIT then
***************
*** 241,244 ****
--- 243,247 ----
MENULINE "Win32Forth IDE" ".IDE"
MENULINE "ForthForm" ".ForthForm"
+ MENUITEM "Compile &Project\tF12" LoadProject ;
MENUSEPARATOR
MENULINE "&Class and Vocabulary browser..." "class-browser"
|
