Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv29264/src/lib
Modified Files:
treeview.f
Log Message:
Jos: Corrected 2 stacknotations.
Index: treeview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** treeview.f 22 Jun 2006 09:04:35 -0000 1.10
--- treeview.f 28 Jun 2006 11:21:15 -0000 1.11
***************
*** 249,254 ****
: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
! :M GetNextItem: ( flag hItem -- h ) TVM_GETNEXTITEM SendMessage:Self ;M
:M GetRoot: ( -- hItem ) 0 TVGN_ROOT GetNextItem: self ;M
:M GetChild: ( hItem -- hItem ) TVGN_CHILD GetNextItem: self ;M
--- 249,254 ----
: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: ( hItem flag -- ) TVM_SELECTITEM SendMessage:SelfDrop ;M
! :M GetNextItem: ( hItem flag -- h ) TVM_GETNEXTITEM SendMessage:Self ;M
:M GetRoot: ( -- hItem ) 0 TVGN_ROOT GetNextItem: self ;M
:M GetChild: ( hItem -- hItem ) TVGN_CHILD GetNextItem: self ;M
|
