[Win32forth-cvs] win32forth/apps/ForthForm FORTHFORM.F,1.17,1.18

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

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

Modified Files:
	FORTHFORM.F 
Log Message:
Jos: Made interactive switching between ForthForm and Win32ForthIDE possible.

Index: FORTHFORM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORTHFORM.F,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** FORTHFORM.F	27 Dec 2006 18:43:57 -0000	1.17
--- FORTHFORM.F	21 Feb 2007 20:52:54 -0000	1.18
***************
*** 22,25 ****
--- 22,26 ----
  needs excontrols.f          \ extended controls for Win32Forth
  needs ExUtils.f             \ general utilities
+ needs w_search.f
  needs linklist.f            \ very useful utility
  needs bitmap.f              \ bitmap loading routines
***************
*** 109,113 ****
           formwindow-link off
  
! WM_USER 256 + constant FF_PASTE     \ message to tell Win32forthIDE to paste source text
  
  ColorObject FormColor             \ background form color
--- 110,114 ----
           formwindow-link off
  
! WM_USER 256 + constant FF_PASTE     \ message to tell Win32forth to paste source text
  
  ColorObject FormColor             \ background form color
***************
*** 192,199 ****
  
  : Start-Win32ForthIDE   ( -- )  \ start  the editor if not already started
!                      editor-present? not
!                      if    s" Win32ForthIDE.exe" PrePend<Home>\
!                            GetHandle: TheMainWindow ExecuteFile
!                      then  ;
  
  : Start-ProjectManager   ( -- )       \ start the project manager if not started
--- 193,201 ----
  
  : Start-Win32ForthIDE   ( -- )  \ start  the editor if not already started
!                      editor-present?
! 			if      s" Win32Forth*IDE" "SetToForeground drop
! 			else    s" Win32ForthIDE.exe" PrePend<Home>\
! 				GetHandle: TheMainWindow ExecuteFile
! 			then  ;
  
  : Start-ProjectManager   ( -- )       \ start the project manager if not started