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

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

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