Code: Select all
OpenWindow(0, 0, 0, 300, 300, "", #PB_Window_SystemMenu)
TreeGadget(0, 5, 5, 290, 260)
ButtonGadget(1, 25, 270, 120, 24, "Add Item")
AddGadgetItem(0, -1, "Item 1", 0, 0)
AddGadgetItem(0, -1, "Item 2", 0, 0)
AddGadgetItem(0, -1, "Item 3", 0, 1)
AddGadgetItem(0, -1, "Item 4", 0, 1)
SetGadgetItemState(0, 1, #PB_Tree_Expanded)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Gadget
Select EventGadget()
Case 1
AddGadgetItem(0, 1, "Added #1", 0, 0)
AddGadgetItem(0, 2, "Added #2", 0, 1)
AddGadgetItem(0, 3, "Added #3", 0, 1)
SetGadgetState(0, 1)
SetGadgetItemState(0, 1, #PB_Tree_Expanded)
If GetGadgetState(0) = 1
Debug "Added #1 is selected, but you don't see it!"
Debug "Try to select Added #1 with the mouse, you will not see anything"
EndIf
EndSelect
EndSelect
ForEver