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
|
