[Win32forth-cvs] win32forth/src/console ConsoleMenu.f,1.8,1.9

[Jos v.d.V. <jo...@us...>]

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"