[Win32forth-cvs] win32forth/apps/ForthForm FORTHFORM.F, 1.19, 1.20 FormMenu.f, 1.4, 1.5

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

Update of /cvsroot/win32forth/win32forth/apps/ForthForm
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22328/ForthForm

Modified Files:
	FORTHFORM.F FormMenu.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: FORTHFORM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORTHFORM.F,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** FORTHFORM.F	24 Feb 2007 20:17:22 -0000	1.19
--- FORTHFORM.F	25 Feb 2007 19:04:42 -0000	1.20
***************
*** 196,203 ****
  			if      s" Win32Forth*IDE" "SetToForeground drop
  			else    s" Win32ForthIDE.exe" PrePend<Home>\
! \ 				GetHandle: TheMainWindow
!         CONHNDL ExecuteFile
  			then  ;
  
  : Start-ProjectManager   ( -- )       \ start the project manager if not started
                       ?promgr-started ?exit
--- 196,207 ----
  			if      s" Win32Forth*IDE" "SetToForeground drop
  			else    s" Win32ForthIDE.exe" PrePend<Home>\
! 				conhndl ExecuteFile
  			then  ;
  
+ : ffLoadProject   	( -- )       \ start the project manager if not started
+                      s" Win32for.exe" PrePend<Home>\
+                      temp$ place  s"  LoadProject" temp$ +place temp$
+                      exec-cmd drop ;
+ 
  : Start-ProjectManager   ( -- )       \ start the project manager if not started
                       ?promgr-started ?exit
***************
*** 952,956 ****
                          'N' +k_control  of      doNew           endof
                          'O' +k_control  of      doOpen          endof
!                          K_F12          of   SetFocus: Monitor  endof
                           K_F1           of      doFormHelp      endof
                  endcase ;M
--- 956,961 ----
                          'N' +k_control  of      doNew           endof
                          'O' +k_control  of      doOpen          endof
!                          K_F9           of   SetFocus: Monitor  endof
!                          K_F12          of   ffLoadProject      endof
                           K_F1           of      doFormHelp      endof
                  endcase ;M

Index: FormMenu.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FormMenu.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** FormMenu.f	27 Dec 2006 18:43:57 -0000	1.4
--- FormMenu.f	25 Feb 2007 19:04:42 -0000	1.5
***************
*** 50,53 ****
--- 50,55 ----
           MenuSeparator
           MenuItem "Win32Forth IDE" Start-Win32ForthIDE ;
+          MENUITEM    "Compile &Project\tF12"             FFLoadProject ;
+ 
  \         MenuItem "Project Manager " Start-ProjectManager ;
           MenuSeparator