CountTreeGadgetNodeItems()

[Fred]

Code updated for 5.20+

As i got several mails concerning this one, here the procedure which allows to replace the pre-v4 one:

Code: Select all

Procedure CountTreeGadgetNodeItems(Gadget, Index)

 Level = GetGadgetItemAttribute(Gadget, Index, #PB_Tree_SubLevel)

 Repeat
   Index + 1

   If GetGadgetItemAttribute(Gadget, Index, #PB_Tree_SubLevel) >= Level+1
     Count+1
   Else
     Break
   EndIf
 ForEver

 ProcedureReturn Count
EndProcedure

[Flype]

thank you fred.

Just 2 little wishes i needed today :

CountGadgetColumns(Gadget)
ClearGadgetColumns(Gadget)

Code: Select all

Procedure.l ClearGadgetColumns(gID.l,ClearList.l)
  
  If IsGadget(gID)
    
    ColumnNumber = CountGadgetColumns(gID)
    ;ColumnNumber = GetGadgetAttribute(gID,#PB_ListIcon_ColumnNumber)
    
    If ClearList
      ClearGadgetItemList(gID)
    EndIf
    
    ;For Column = ColumnNumber To 0 Step -1
    ;  RemoveGadgetColumn(gID,Column)
    ;Next

    For Column = 0 To ColumnNumber-1
      RemoveGadgetColumn(gID,0)
    Next
    
  EndIf
  
EndProcedure