[Win32forth-cvs] win32forth/src/tools StartForthForm.f, NONE, 1.1 StartIde.f, NONE, 1.1 tools.f, 1.5, 1.6

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

Update of /cvsroot/win32forth/win32forth/src/tools
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv3913

Modified Files:
	tools.f 
Added Files:
	StartForthForm.f StartIde.f 
Log Message:
Jos: Extensions for the menu tools

--- NEW FILE: StartIde.f ---
needs excontrols.f          \ extended controls for Win32Forth
needs ExUtils.f             \ general utilities
needs w_search.f

: Start-Win32ForthIDE   ( -- )  \ start  the editor if not already started
                     editor-present?
			if      s" Win32Forth*IDE" "SetToForeground drop
			else    s" Win32ForthIDE.exe" PrePend<Home>\
				 conhndl ExecuteFile

			then  ;

' Start-Win32ForthIDE is .Ide
  Start-Win32ForthIDE
\s

Index: tools.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/tools.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** tools.f	22 Jul 2006 08:32:13 -0000	1.5
--- tools.f	24 Feb 2007 16:46:33 -0000	1.6
***************
*** 9,12 ****
--- 9,26 ----
  INTERNAL
  EXTERNAL        \ externally available definitions start here
+ 
+ defer .ide
+ :noname         ( -- ) \ load the class and vocabulary browser
+                 turnkeyed? 0=
+ \in-system-ok   IF  s" src\Tools\StartIde.f" Prepend<home>\ INCLUDED
+                 then ; is .ide
+ 
+ defer .ForthForm
+ :noname         ( -- ) \ load the class and vocabulary browser
+                 turnkeyed? 0=
+ \in-system-ok   IF  s" src\Tools\StartForthForm.f" Prepend<home>\ INCLUDED
+                 then ; is .ForthForm
+ 
+ 
  defer class-browser
  :noname         ( -- ) \ load the class and vocabulary browser

--- NEW FILE: StartForthForm.f ---
needs excontrols.f          \ extended controls for Win32Forth
needs ExUtils.f             \ general utilities
needs w_search.f

: 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>\
			conhndl ExecuteFile
                then ;


' Start-fform is .ForthForm
  Start-fform
\s