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
|
