[Win32forth-cvs] win32forth/src/lib treeview.f,1.8,1.9

[Rod O. <rod...@us...>]

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

Modified Files:
	treeview.f 
Log Message:
Rod: Changed back to use Control rather than Child-Window.  Added StartSize: method.

Index: treeview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** treeview.f	13 Jun 2006 18:46:49 -0000	1.8
--- treeview.f	15 Jun 2006 18:43:54 -0000	1.9
***************
*** 1,4 ****
--- 1,10 ----
  \ $Id$
  
+ \ TreeView.f    Thursday, June 15 2006  Rod
+ \               Changed to use Control rather than Child-Window
+ \               On creation needs a sensible StartSize: ( default set to size of parent )
+ \               Class control does not have the definition "null-check" which is in
+ \               class Window and hence Child-Window. 
+ 
  (( TreeView.F   A rudimentary TreeView class              by Michael Hillerström
                                                       mic...@us...
***************
*** 86,93 ****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! \ :Class TreeViewControl <super control
! \ converted back into a child window as a quick an dirty fix for the
! \ FileLister class (Montag, Juni 12 2006 - dbu)
! :Class TreeViewControl <super child-window
  
       Record:    nmhdr
--- 92,96 ----
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! :Class TreeViewControl <super control
  
       Record:    nmhdr
***************
*** 183,231 ****
  \ -------------------- Create Tree-View Control --------------------
  
- create treeview-class   z," SysTreeView32"      \ Pre-registered class
- 
  :M WindowStyle: ( -- style )
                  [ WS_CHILD WS_VISIBLE or ] literal
                  ;M
  
! \ :M Start:       ( Parent -- )
! \                 hWnd
! \                 if   drop
! \                      SW_SHOWNOACTIVATE Show: self
! \                 else to Parent
! \                      Call InitCommonControls drop
! \                      treeview-class Create-Control
! \                 then ;M
! 
! : create-treeview ( -- hWnd )
!                 \ Make sure Common Controls are loaded
!                 Call InitCommonControls drop
! 
!                 NULL                            \ Creation parameter
!                 appInst                         \ Instance handle
!                 id                              \ Child id
!                 Parent conhndl =
!                 if      conhndl
!                 else    GetHandle: Parent       \ parent window handle
!                 then
!                 tempRect.AddrOf GetClientRect: Parent
!                 Bottom: tempRect Right: tempRect \ Size h,w
!                 0 0                             \ Position y,x
!                 WindowStyle: [ self ]           \ Style
!                 NULL                            \ Window name
!                 treeview-class                  \ Pre-registered class
!                 0                               \ Extended style
!                 Call CreateWindowEx
!                 ;
  
  :M Start:       ( Parent -- )
                  hWnd
!                 if      drop
!                         SW_SHOWNOACTIVATE Show: self
!                 else
!                         to Parent
!                         create-treeview to hWnd
!                 then
!                 ;M
  
  :M Handle_Notify: ( h m w l -- f )
--- 186,203 ----
  \ -------------------- Create Tree-View Control --------------------
  
  :M WindowStyle: ( -- style )
                  [ WS_CHILD WS_VISIBLE or ] literal
                  ;M
  
! :M StartSize: ( -- w h )   width: parent  height: parent ;M
  
  :M Start:       ( Parent -- )
                  hWnd
!                 if   drop
!                      SW_SHOWNOACTIVATE Show: self
!                 else to Parent
! \                     Call InitCommonControls drop
!                      z" SysTreeView32" Create-Control
!                 then ;M
  
  :M Handle_Notify: ( h m w l -- f )