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

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

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

Modified Files:
	EdMenu.f 
Log Message:
Jos: Optimized Start-fform

Index: EdMenu.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdMenu.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** EdMenu.f	21 Feb 2007 14:02:09 -0000	1.15
--- EdMenu.f	21 Feb 2007 20:50:16 -0000	1.16
***************
*** 21,28 ****
  : 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
--- 21,25 ----
  : Start-fform   ( -- )    \  Start ForthForm when not started OR
          ?fform-started    \  put ForthForm in front when started.
!                 if      s" ForthForm*." "SetToForeground drop
                  else    s" ForthForm.exe" PrePend<Home>\
                          GetHandle: MainWindow ExecuteFile