Quick example
Code: Select all
OpenWindow(0, 0, 0, 500, 500, #PB_Window_ScreenCentered|#PB_Window_SystemMenu, "Tree Demo")
CreateGadgetList(WindowID())
TreeGadget(0, 0, 0, 250, 500)
TextGadget(1, 250, 0, 250, 500, "")
AddGadgetItem(0, -1, "England")
OpenTreeGadgetNode(0)
  AddGadgetItem(0, -1, "London")
  AddGadgetItem(0, -1, "Manchester")
  AddGadgetItem(0, -1, "Birmingham")
CloseTreeGadgetNode(0)
AddGadgetItem(0, -1, "France")
OpenTreeGadgetNode(0)
  AddGadgetItem(0, -1, "Paris")
  AddGadgetItem(0, -1, "Nice")
  AddGadgetItem(0, -1, "Lyon")
CloseTreeGadgetNode(0)
Repeat
  event = WaitWindowEvent()
  If event = #PB_Event_Gadget
    If EventGadgetID() = 0
      item = GetGadgetState(0)
      itemtext.s = GetGadgetItemText(0, item, 0)
      text.s = ""
      
      For i = 1 To 100
        text + itemtext + " "
      Next i
      
      SetGadgetText(1, text)
    EndIf
  EndIf
  
  
Until event = #PB_Event_CloseWindow