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

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

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

Modified Files:
	treeview.f 
Log Message:
Jos: Added some commands for joy stick browsing

Index: treeview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** treeview.f	15 Jun 2006 18:43:54 -0000	1.9
--- treeview.f	22 Jun 2006 09:04:35 -0000	1.10
***************
*** 247,250 ****
--- 247,251 ----
  \ :M ToggleExpandItem: ( hItem -- )   TVE_TOGGLE Expand: self ;M
  :M CollapseReset: ( hItem -- )  TVE_COLLAPSERESET TVE_COLLAPSE or Expand: self ;M
+ :M Collapse:     ( hItem -- )        TVE_COLLAPSE TVE_COLLAPSE or Expand: self ;M
  :M GetItemRect: ( hItem -- f )  ItemRect ! ItemRect true TVM_GETITEMRECT SendMessage:Self ;M
  :M SelectItem:  ( flag hItem -- )      TVM_SELECTITEM  SendMessage:SelfDrop ;M