Update of /cvsroot/win32forth/win32forth/src/tools
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2629
Modified Files:
DumpWindows.f
Log Message:
Jos: Added a count of the total used windows. That makes it easier to optimize windows. I started with 122 Top-Level-Windows. After cleaning I am "only" using 92 Top-Level-Windows.
Index: DumpWindows.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/DumpWindows.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** DumpWindows.f 22 Jul 2006 08:32:13 -0000 1.2
--- DumpWindows.f 24 Feb 2007 13:58:54 -0000 1.3
***************
*** 35,39 ****
LMAXCOUNTED localalloc: buff$
! cr
hWnd h.8 space
hWnd GetProcessId h.8 space
--- 35,40 ----
LMAXCOUNTED localalloc: buff$
! 1 +TO FIRST-LINE?
! cr FIRST-LINE? 3 u,.r space
hWnd h.8 space
hWnd GetProcessId h.8 space
***************
*** 45,49 ****
LMAXCOUNTED buff$ hWnd
call GetWindowText 0<> if buff$ zcount type else ." <no title>" then
-
true ; \ default return value
--- 46,49 ----
***************
*** 51,61 ****
\ *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
--- 51,61 ----
\ *G Dump all Top-Level-Windows to the console.
cr cr ." Top-Level-Windows:"
! cr ." # hWnd ProcId ThreadId ClassName - WindowTitle"
! 0 TO FIRST-LINE?
0 \ lParam is passed to the callback funtion by Windows
&DumpWindowCallback \ get address of the callback function
Call EnumWindows drop \ and use it
! cr ." Total:" FIRST-LINE? 1 u,.r cr ;
' (.Windows) is .Windows
|
