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
|
