[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdMenu.f,1.14,1.15

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

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"