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 )
|
