[Win32forth-cvs] win32forth/apps/ProMgr ProjectManager.f, 1.12, 1.13

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

Update of /cvsroot/win32forth/win32forth/apps/ProMgr
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23478/apps/ProMgr

Modified Files:
	ProjectManager.f 
Log Message:
- Changed the TreeViewControl to use the control class as the base class.
- Moved some methods from the ProjectTreeViewControl into the TreeViewControl class.
- Changed the TreeViewControl to use SendMessage:self and SendMessage:selfdrop
- AutoSize: method added to the control and the child-window class.

Index: ProjectManager.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ProMgr/ProjectManager.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** ProjectManager.f	11 Jan 2006 17:45:19 -0000	1.12
--- ProjectManager.f	11 Jun 2006 07:37:26 -0000	1.13
***************
*** 428,472 ****
  :Object TheProject  <super TreeViewControl
  
- : SendMessage ( lParam wParam message -- result )   hWnd Call SendMessage ;
- : SendMessageDrop ( lParam wParam message -- )   SendMessage drop ;
- 
- :M InsertItem: ( -- hItem )   tvins 0 TVM_INSERTITEM SendMessage ;M
- :M SetImageList: ( himl iImage -- )   TVM_SETIMAGELIST SendMessageDrop ;M
- :M DeleteItem: ( hItem -- f )   0 TVM_DELETEITEM SendMessage ;M
- :M SetItem: ( -- )   tvitem 0 TVM_SETITEM SendMessageDrop ;M
- :M Expand: ( hItem f -- )   TVM_EXPAND SendMessageDrop ;M
- \ :M ToggleExpandItem: ( hItem -- )   TVE_TOGGLE Expand: self ;M
- :M CollapseReset: ( hItem -- )   TVE_COLLAPSERESET TVE_COLLAPSE or Expand: self ;M
- :M GetItemRect: ( hItem -- f )   ItemRect !  ItemRect true TVM_GETITEMRECT SendMessage ;M
- :M SelectItem: ( hItem -- )   TVGN_CARET TVM_SELECTITEM SendMessageDrop ;M
- :M GetNextItem: ( hItem  -- h )   TVM_GETNEXTITEM SendMessage ;M
- :M GetRoot: ( -- hItem )   0 TVGN_ROOT GetNextItem: self ;M
- :M GetChild: ( hItem -- hItem )   TVGN_CHILD GetNextItem: self ;M
- :M GetParentItem: ( hItem -- hItem )   TVGN_PARENT GetNextItem: self ;M
- :M GetNext: ( hItem -- hItem )   TVGN_NEXT GetNextItem: self ;M
- :M GetPrevious: ( hItem -- hItem )   TVGN_PREVIOUS GetNextItem: self ;M
- int maxwidth
- : ItemWidthMax ( hItem -- hItem )
-         dup GetItemRect: self IF  right: ItemRect  maxwidth max to maxwidth  THEN ;
- 
- :M GetMaxWidth: ( -- n )
-         0 to MaxWidth
-         GetRoot: self
-         ItemWidthMax
-         GetChild: self
-         Begin  dup dup
-         While
-             ItemWidthMax
-             GetChild: self
-             Begin  dup
-             While
-                ItemWidthMax
-                GetNext: self
-             Repeat  drop
-             GetNext: self
-         Repeat  drop drop
-         MaxWidth
-         ;M
- 
  File ProjectFile
  load-bitmap imagelist "treeimages.bmp"
--- 428,431 ----
***************
*** 974,978 ****
              0 0 GetSize: self Move: HtmlBox
          then ;
!         
  : Start-BinaryBox  ( -- )
                   GetHandle: BinaryBox 0=
--- 933,937 ----
              0 0 GetSize: self Move: HtmlBox
          then ;
! 
  : Start-BinaryBox  ( -- )
                   GetHandle: BinaryBox 0=
***************
*** 1047,1051 ****
  :M Close:    ( -- )
               Close-Viewers ;M
!              
  ;Object
  
--- 1006,1010 ----
  :M Close:    ( -- )
               Close-Viewers ;M
! 
  ;Object
  
***************
*** 1259,1263 ****
          ProjectManager SaveSettings
          false promgr-started
!         SaveRecentFiles 
          SaveRecentFiles
          MenuHandle: CurrentMenu ?dup
--- 1218,1222 ----
          ProjectManager SaveSettings
          false promgr-started
!         SaveRecentFiles
          SaveRecentFiles
          MenuHandle: CurrentMenu ?dup