From: Dirk B. <db...@us...> - 2006-05-17 15:26:20
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1894/src/lib Modified Files: treeview.f Log Message: DeleteItem: method added. Index: treeview.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** treeview.f 14 Apr 2006 19:12:44 -0000 1.4 --- treeview.f 17 May 2006 15:26:17 -0000 1.5 *************** *** 246,263 **** :M ToggleExpandItem: ( hItem -- ) ! TVE_TOGGLE TVM_EXPAND hWnd Call SendMessage drop ! ;M :M ExpandItem: ( hItem -- ) ! TVE_EXPAND TVM_EXPAND hWnd Call SendMessage drop ! ;M :M CollapseItem: ( hItem -- ) ! TVE_COLLAPSE TVM_EXPAND hWnd Call SendMessage drop ! ;M :M SortChildren: ( hItem -- ) ! false TVM_SORTCHILDREN hWnd Call SendMessage drop ! ;M \ --------------------- Overridable methods ---------------------- --- 246,266 ---- :M ToggleExpandItem: ( hItem -- ) ! TVE_TOGGLE TVM_EXPAND hWnd Call SendMessage drop ;M :M ExpandItem: ( hItem -- ) ! TVE_EXPAND TVM_EXPAND hWnd Call SendMessage drop ;M :M CollapseItem: ( hItem -- ) ! TVE_COLLAPSE TVM_EXPAND hWnd Call SendMessage drop ;M :M SortChildren: ( hItem -- ) ! false TVM_SORTCHILDREN hWnd Call SendMessage drop ;M ! ! :M DeleteItem: ( hItem -- ) ! \ *G Removes an item and all its children from the tree view control. ! \ ** hItem is the handle of the item to delete. If hItem is set to TVI_ROOT, ! \ ** all items are deleted. ! 0 TVM_DELETEITEM hWnd Call SendMessage drop ;M ! \ --------------------- Overridable methods ---------------------- *************** *** 432,434 **** \ End of File \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - |