[Win32forth-cvs] win32forth/src/lib w_search.f,1.5,1.6

[Jos v.d.V. <jo...@us...>]

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 ----