Use DfTreevw.Pkg

//****************************************************************************
// $Module type: CLASS
// $Module name: cWizardTreeView
// $Author     : VO
// Created     : 07/22/01 @ 4:18
//
// Description
//
// $Rev History
//    07/22/01 VO Module header created
//****************************************************************************
Class cWizardTreeView Is A TreeView
   //****************************************************************************
   // $Module type: PROCEDURE
   // $Module name: DoDeleteAllData
   // $Author     : VO
   // Created     : 07/22/01 @ 4:18
   //
   // Description
   //    This method makes it possible to delete all the data from a treeview.
   //    If the treeview has multiple rootitems all those will be removed
   //
   // $Rev History
   //    07/22/01 VO Module header created
   //****************************************************************************
   Procedure DoDeleteAllData
      Handle hRootItem

      Get RootItem To hRootItem
      While (hRootItem <> 0)
         Send DoDeleteItem hRootItem
         Get RootItem To hRootItem
      Loop
   End_Procedure // DoDeleteAllData
End_Class // cWizardTreeView