[Win32forth-cvs] win32forth/src/tools tools.f,1.2,1.3

[bob a. <rd...@us...>]

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

Modified Files:
	tools.f 
Log Message:
allow using tools when current directory isn't where forth was built

Index: tools.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/tools.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** tools.f	20 Dec 2005 18:02:03 -0000	1.2
--- tools.f	8 Apr 2006 19:40:38 -0000	1.3
***************
*** 9,17 ****
  INTERNAL
  EXTERNAL        \ externally available definitions start here
! 
  defer class-browser
  :noname         ( -- ) \ load the class and vocabulary browser
                  turnkeyed? 0=
! \in-system-ok   IF   s" Tools/ClassBrowser.f" INCLUDED
                  then ; is class-browser
  
--- 9,19 ----
  INTERNAL
  EXTERNAL        \ externally available definitions start here
! create forthbase ," \program files\win32forth"
! : sysabspath ( a1 n1 -- a2 n2)
!    forthbase count MakeAbsolutePath count ;
  defer class-browser
  :noname         ( -- ) \ load the class and vocabulary browser
                  turnkeyed? 0=
! \in-system-ok   IF  s" src\Tools\ClassBrowser.f" sysabspath INCLUDED
                  then ; is class-browser
  
***************
*** 19,23 ****
  :noname         ( -- ) \ load the help-system
                  turnkeyed? 0=
! \in-system-ok   IF   s" Tools/HelpSystem.f" INCLUDED
                  THEN ; is help-system
  
--- 21,25 ----
  :noname         ( -- ) \ load the help-system
                  turnkeyed? 0=
! \in-system-ok   IF   s" src\Tools\HelpSystem.f" sysabspath INCLUDED
                  THEN ; is help-system
  
***************
*** 25,29 ****
  :noname         ( -- ) \ load the xref tool
                  turnkeyed? 0=
! \in-system-ok   IF  >system s" Tools/xref.f" INCLUDED system>
                  THEN ; is xref
  
--- 27,31 ----
  :noname         ( -- ) \ load the xref tool
                  turnkeyed? 0=
! \in-system-ok   IF  >system s" src\Tools\xref.f" sysabspath INCLUDED system>
                  THEN ; is xref
  
***************
*** 31,35 ****
  :noname         ( -- ) \ load the DexH tool
                  turnkeyed? 0=
! \in-system-ok   IF  >system s" Tools/w32fdexh.f" INCLUDED system>
                  THEN ; is dexh
  
--- 33,37 ----
  :noname         ( -- ) \ load the DexH tool
                  turnkeyed? 0=
! \in-system-ok   IF  >system s" src\Tools\w32fdexh.f" sysabspath INCLUDED system>
                  THEN ; is dexh