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
|
