[Win32forth-cvs] win32forth/src/lib ExUtils.f, 1.7, 1.8 w_search.f, 1.6, 1.7

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

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

Modified Files:
	ExUtils.f w_search.f 
Log Message:
Jos: Adapted for the Tools menu of the IDE

Index: w_search.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/w_search.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** w_search.f	21 Feb 2007 20:59:32 -0000	1.6
--- w_search.f	24 Feb 2007 18:11:05 -0000	1.7
***************
*** 305,312 ****
   ;
  
  : "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
   ;
--- 305,316 ----
   ;
  
+ : WindowToForeground ( hwnd -  )
+    SW_SHOWNORMAL over call ShowWindow drop
+    Call SetForegroundWindow drop
+  ;
+ 
  : "SetToForeground ( adr cnt - hwnd|0 )
!     search-window dup    \ Search for a window and sets it in the foreground
!           if   dup WindowToForeground
            then
   ;

Index: ExUtils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ExUtils.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** ExUtils.f	24 Feb 2007 16:51:50 -0000	1.7
--- ExUtils.f	24 Feb 2007 18:11:05 -0000	1.8
***************
*** 27,30 ****
--- 27,31 ----
                    then  ;
  
+ Initialization-chain Chain-add init-msg-buffer
  init-msg-buffer