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
|
