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
|
