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
|
