[Win32forth-cvs] win32forth/src/lib treeview.f,1.3,1.4

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

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

Modified Files:
	treeview.f 
Log Message:
Jos: Added an other font for the treeview in the demo. Also added ExpandItem: and CollapseItem:.

Index: treeview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** treeview.f	8 Mar 2006 21:40:17 -0000	1.3
--- treeview.f	14 Apr 2006 19:12:44 -0000	1.4
***************
*** 249,252 ****
--- 249,260 ----
                  ;M
  
+ :M ExpandItem:  ( hItem -- )
+                 TVE_EXPAND TVM_EXPAND hWnd Call SendMessage drop
+                 ;M
+ 
+ :M CollapseItem:  ( hItem -- )
+                 TVE_COLLAPSE TVM_EXPAND hWnd Call SendMessage drop
+                 ;M
+ 
  :M SortChildren:      ( hItem -- )
                  false TVM_SORTCHILDREN hWnd Call SendMessage drop
***************
*** 309,312 ****
--- 317,322 ----
  :Class NewTVC <super TreeViewControl
  
+         Font WinFont
+ 
  
  :M WindowStyle: ( -- style )
***************
*** 354,357 ****
--- 364,373 ----
                  Start: super
  
+                 8 Width: WinFont
+                 16 Height: WinFont
+                 s" Courier New" SetFaceName: WinFont
+                 Create: WinFont
+                 true Handle: WinFont WM_SETFONT hWnd CALL SendMessage drop \ activate a new font
+ 
                  \ Insert items...
                  FillTreeView