Code: Select all
If OpenWindow(0, 0, 0, 180, 180, "TreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
TreeGadget(1, 10, 10, 160, 160, #PB_Tree_CheckBoxes)
AddGadgetItem(1,1,"teste 1")
SetGadgetItemData(1,1,10)
Debug GetGadgetItemData(1,1)
AddGadgetItem(1,2,"teste 2")
SetGadgetItemData(1,2,20)
Debug GetGadgetItemData(1,2)
AddGadgetItem(1,3,"teste 3")
SetGadgetItemData(1,3,30)
Debug GetGadgetItemData(1,3)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf