[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdToolbar.f, 1.10, 1.11

[Ezra B. <ezr...@us...>]

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

Modified Files:
	EdToolbar.f 
Log Message:
Minor change to the "view source for"  routine to allow searching all vocabs. EAB

Index: EdToolbar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdToolbar.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** EdToolbar.f	3 Feb 2007 11:02:53 -0000	1.10
--- EdToolbar.f	17 Jun 2007 05:24:10 -0000	1.11
***************
*** 352,364 ****
  
  : ?viewsource    { addr cnt -- }
!                 addr cnt "CLIP" pad place        \ save string in find buffer
!                 pad caps-find
! 		            if
  \in-system-ok         get-viewfile
! 		                  if       count $browse
!                       else	    2drop
! 		                  then     addr cnt InsertString: helpbox	\ save help string as entered
!                else	  drop beep
! 		           then   ;
  
  \ copied from WinED
--- 352,363 ----
  
  : ?viewsource    { addr cnt -- }
!                 addr cnt "CLIP" "anyfind 	\ find it if it exist		\
! 	        if
  \in-system-ok         get-viewfile
! 		      if       count $browse
!                       else     2drop
! 		      then     addr cnt InsertString: helpbox	\ save help string as entered
!                else   drop beep
! 	       then   ;
  
  \ copied from WinED