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
|
