SetGadgetItemText() for TreeGadget have no effect?

[goomoo]

SetGadgetItemText() for TreeGadget have no effect?

Code: Select all

If OpenWindow(0, 0, 0, 355, 180, "TreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  TreeGadget(0, 10, 10, 160, 160)                                         ; TreeGadget standard
  TreeGadget(1, 180, 10, 160, 160, #PB_Tree_NoLines)
  For ID = 0 To 1
    For a = 0 To 10
      AddGadgetItem (ID, -1, "Normal Item "+Str(a), 0, 0) ; if you want to add an image, use
      AddGadgetItem (ID, -1, "Node "+Str(a), 0, 0)        ; ImageID(x) as 4th parameter
      AddGadgetItem(ID, -1, "Sub-Item 1", 0, 1)    ; These are on the 1st sublevel
      AddGadgetItem(ID, -1, "Sub-Item 2", 0, 1)
      AddGadgetItem(ID, -1, "Sub-Item 3", 0, 1)
      AddGadgetItem(ID, -1, "Sub-Item 4", 0, 1)
      AddGadgetItem (ID, -1, "File "+Str(a), 0, 0) ; sublevel 0 again
    Next
  Next
EndIf

Debug GetGadgetItemText(0,4)
;Sub-Item 3

SetGadgetItemText(0,4,"asdfasdf")  ;cut no ice
SetGadgetItemText(0,4,"asdfasdf",0)  ;cut no ice
SetGadgetItemText(0,4,"asdfasdf",1)  ;cut no ice

SetGadgetItemState(0,1,#PB_Tree_Expanded)

[bmld76]

exact, but the intern value is changed

Code: Select all

Debug GetGadgetItemText(0,4)
;Sub-Item 3
SetGadgetItemText(0,4,"asdfasdf")  ;cut no ice
SetGadgetItemText(0,4,"asdfasdf",0)  ;cut no ice
SetGadgetItemText(0,4,"asdfasdf",1)  ;cut no ice

Debug GetGadgetItemText(0,4)

I test your code in pure basic and it works

[Paul]

It actually changes the text of the tree gadget, it just doesn't show it.

Code: Select all

If OpenWindow(0, 0, 0, 355, 180, "TreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  TreeGadget(1, 10, 10, 160, 160)  
  AddGadgetItem (1, -1, "Normal Item "+Str(a)) 

  Debug GetGadgetItemText(1,0)
  SetGadgetItemText(1,0,"asdfasdf")  
  Debug GetGadgetItemText(1,0)
EndIf

EDIT: bmld76 beat me to it