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

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4836

Modified Files:
	w_search.f 
Log Message:
Jos: Added "SetToForeground

Index: w_search.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/w_search.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** w_search.f	23 Aug 2005 18:29:28 -0000	1.4
--- w_search.f	21 Feb 2007 20:49:02 -0000	1.5
***************
*** 18,21 ****
--- 18,24 ----
  \   buffer or a specification string has a lenght of 0.
  
+ \ February 21st, 2007
+ \  - Added "SetToForeground
+ 
  \  From toolset.f \ load it here when you would like to use it.
  
***************
*** 290,293 ****
--- 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
***************
*** 301,304 ****
--- 317,328 ----
       until nip 2r> 2drop
   ;
+ 
+ : "SetToForeground ( adr cnt - hwnd|0 )
+      search-window dup    \ Search for a window and sets it in the foreground
+           if   SW_SHOWNORMAL over call ShowWindow drop
+                dup Call SetForegroundWindow drop
+           then
+  ;
+ 
  \s