Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4947
Modified Files:
EdMenu.f
Log Message:
Jos: Added an option to start ForthForm OR put ForthForm in front when it is started.
Index: EdMenu.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdMenu.f,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** EdMenu.f 21 Oct 2006 11:11:47 -0000 1.14
--- EdMenu.f 21 Feb 2007 14:02:09 -0000 1.15
***************
*** 17,20 ****
--- 17,31 ----
needs src/tools/SdkHelp.f
needs ExUtils.f
+ needs w_search.f
+
+ : Start-fform ( -- ) \ Start ForthForm when not started OR
+ ?fform-started \ put ForthForm in front when started.
+ if s" ForthForm*." search-window ?dup
+ if SW_SHOWNORMAL over call ShowWindow drop
+ dup Call SetForegroundWindow drop
+ then
+ else s" ForthForm.exe" PrePend<Home>\
+ GetHandle: MainWindow ExecuteFile
+ then ;
MenuBar MainMenu
***************
*** 145,148 ****
--- 156,162 ----
:MenuItem mp_showtb "&Show Toolbar" IDM_SHOW_TOOLBAR DoCommand ;
\ :MenuItem mp_customizetb "&Customize toolbar" Customize: ControlToolbar ;
+ MenuSeparator
+ MenuItem "&Show ForthForm" Start-fform ;
+
Popup "&Win32Forth"
|
