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
|
