[Win32forth-cvs] win32forth/src/tools DumpWindows.f, 1.1, 1.2 tools.f, 1.4, 1.5

[Dirk B. <db...@us...>]

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

Modified Files:
	DumpWindows.f tools.f 
Log Message:
New "DumpWindow" tool added. It dump's all Top-Level-Windows to the console window.

Index: DumpWindows.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/DumpWindows.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** DumpWindows.f	22 Jul 2006 08:23:14 -0000	1.1
--- DumpWindows.f	22 Jul 2006 08:32:13 -0000	1.2
***************
*** 50,64 ****
  : (.Windows)    ( -- )
  \ *G Dump all Top-Level-Windows to the console.
-         0                        \ lParam is passed to the callback funtion by Windows
-         &DumpWindowCallback      \ get address of the callback function
-         Call EnumWindows drop ;  \ and use it
- 
- EXTERNAL
- 
- : .Windows      ( -- )
- \ *G Dump all Top-Level-Windows to the console.
          cr cr ." Top-Level-Windows:"
          cr ." hWnd     ProcId   ThreadId ClassName - WindowTitle"
!         (.Windows) cr ;
  
  MODULE
--- 50,65 ----
  : (.Windows)    ( -- )
  \ *G Dump all Top-Level-Windows to the console.
          cr cr ." Top-Level-Windows:"
          cr ." hWnd     ProcId   ThreadId ClassName - WindowTitle"
! 
!         0                     \ lParam is passed to the callback funtion by Windows
!         &DumpWindowCallback   \ get address of the callback function
!         Call EnumWindows drop \ and use it
! 
!         cr ;
! 
! ' (.Windows) is .Windows
! 
! EXTERNAL
  
  MODULE

Index: tools.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/tools.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** tools.f	11 Apr 2006 17:37:02 -0000	1.4
--- tools.f	22 Jul 2006 08:32:13 -0000	1.5
***************
*** 33,35 ****
--- 33,41 ----
                  THEN ; is dexh
  
+ defer .Windows
+ :noname         ( -- ) \ load the DumpWindow tool
+                 turnkeyed? 0=
+ \in-system-ok   IF   s" src\Tools\DumpWindows.f" Prepend<home>\ INCLUDED
+                 THEN ; is .Windows
+ 
  MODULE