[Win32forth-cvs] win32forth/src/lib treeview.f,1.6,1.7

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

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

Modified Files:
	treeview.f 
Log Message:
- Changed the TreeViewControl back into a child-window. As a quick bugfix for problems with the FileLister class.

Index: treeview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** treeview.f	11 Jun 2006 07:37:27 -0000	1.6
--- treeview.f	12 Jun 2006 16:22:57 -0000	1.7
***************
*** 86,90 ****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! :Class TreeViewControl <super control
  
       Record:    nmhdr
--- 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
***************
*** 180,184 ****
  \ -------------------- Create Tree-View Control --------------------
  
- 
  create treeview-class   z," SysTreeView32"      \ Pre-registered class
  
--- 183,186 ----
***************
*** 187,198 ****
                  ;M
  
  :M Start:       ( Parent -- )
                  hWnd
!                 if   drop
!                      SW_SHOWNOACTIVATE Show: self
!                 else to Parent
!                      Call InitCommonControls drop
!                      treeview-class Create-Control
!                 then ;M
  
  :M Handle_Notify: ( h m w l -- f )
--- 189,231 ----
                  ;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 )
***************
*** 274,278 ****
          ;M
  
- 
  \ --------------------- Overridable methods ----------------------
  
--- 307,310 ----