Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv9189
Modified Files:
w_search.f
Log Message:
Jos: Removed a backup word.
Index: w_search.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/w_search.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** w_search.f 21 Feb 2007 20:49:02 -0000 1.5
--- w_search.f 21 Feb 2007 20:59:32 -0000 1.6
***************
*** 293,309 ****
;
- : 0search-window ( adr cnt - hwnd|0 )
- 2>r call GetActiveWindow dup
- begin
- GW_HWNDNEXT swap call GetWindow dup 0<>
- if dup MAXSTRING pad rot call GetWindowText pad swap
- 2r@ 2swap 2dup temp$ place false *search rot drop
- else never 0 true
- then
- or
- until nip 2r> 2drop
- ;
-
-
: search-window ( adr cnt - hwnd|0 )
2>r call GetActiveWindow dup
--- 293,296 ----
|
