maxgui : treeview : list nodes

BlitzMax Forums/BlitzMax Beginners Area/maxgui : treeview : list nodes

Thanks Dreamora. Just a mistake into your previous code. This code works :

Strict

Local win : TGadget =CreateWindow("My Window",40,40,600,400)
Local TreeView : TGadget= CreateTreeView (0,0,100,300, win)    
                
Local MyRoot:TGadget=TreeViewRoot(Treeview)
Local Node1:TGadget = AddTreeViewNode ("node1", MyRoot)
Local Node2:TGadget = AddTreeViewNode ("node2", Node1)
Local Node3:TGadget = AddTreeViewNode ("node3", Node1)
 
For Local n:TGadget = EachIn Node1.kids
   Notify n.GetText()
Next


While True
	WaitEvent 
	Print CurrentEvent.ToString()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
	End Select
Wend