[Win32forth-cvs] win32forth/src/lib treeview.f,1.7,1.8

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-serv24256/src/lib

Modified Files:
	treeview.f 
Log Message:
Jos: Changed the stack of SelectItem: and GetNextItem:

Index: treeview.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** treeview.f	12 Jun 2006 16:22:57 -0000	1.7
--- treeview.f	13 Jun 2006 18:46:49 -0000	1.8
***************
*** 268,286 ****
                  0 TVM_DELETEITEM hWnd SendMessage:SelfDrop ;M
  
! :M InsertItem: ( -- hItem )   tvins 0 TVM_INSERTITEM SendMessage:Self ;M
  :M SetImageList: ( himl iImage -- )   TVM_SETIMAGELIST SendMessage:SelfDrop ;M
! :M DeleteItem: ( hItem -- f )   0 TVM_DELETEITEM SendMessage:Self ;M
! :M SetItem: ( -- )   tvitem 0 TVM_SETITEM SendMessage:SelfDrop ;M
! :M Expand: ( hItem f -- )   TVM_EXPAND SendMessage:SelfDrop ;M
  \ :M ToggleExpandItem: ( hItem -- )   TVE_TOGGLE Expand: self ;M
! :M CollapseReset: ( hItem -- )   TVE_COLLAPSERESET TVE_COLLAPSE or Expand: self ;M
! :M GetItemRect: ( hItem -- f )   ItemRect !  ItemRect true TVM_GETITEMRECT SendMessage:Self ;M
! :M SelectItem: ( hItem -- )   TVGN_CARET TVM_SELECTITEM SendMessage:SelfDrop ;M
! :M GetNextItem: ( 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
! :M GetParentItem: ( hItem -- hItem )   TVGN_PARENT GetNextItem: self ;M
! :M GetNext: ( hItem -- hItem )   TVGN_NEXT GetNextItem: self ;M
! :M GetPrevious: ( hItem -- hItem )   TVGN_PREVIOUS GetNextItem: self ;M
  
  int maxwidth
--- 268,286 ----
                  0 TVM_DELETEITEM hWnd SendMessage:SelfDrop ;M
  
! :M InsertItem:   ( -- hItem )   tvins 0 TVM_INSERTITEM SendMessage:Self ;M
  :M SetImageList: ( himl iImage -- )   TVM_SETIMAGELIST SendMessage:SelfDrop ;M
! :M DeleteItem:   ( hItem -- f )       0 TVM_DELETEITEM SendMessage:Self ;M
! :M SetItem:      ( -- )           tvitem 0 TVM_SETITEM SendMessage:SelfDrop ;M
! :M Expand:       ( hItem f -- )             TVM_EXPAND SendMessage:SelfDrop ;M
  \ :M ToggleExpandItem: ( hItem -- )   TVE_TOGGLE Expand: self ;M
! :M CollapseReset: ( hItem -- )  TVE_COLLAPSERESET 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
! :M GetParentItem: ( hItem -- hItem )       TVGN_PARENT GetNextItem: self ;M
! :M GetNext:     ( hItem -- hItem )           TVGN_NEXT GetNextItem: self ;M
! :M GetPrevious: ( hItem -- hItem )       TVGN_PREVIOUS GetNextItem: self ;M
  
  int maxwidth