[Win32forth-cvs] win32forth/src/tools DumpWindows.f,1.2,1.3

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

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