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
|
