Const EVENT_GADGET_ACTION=$401
Const EVENT_WINDOW_CLOSE=$803

window=CreateWindow("Tree and text area",180,130,720,470,0,15)
tree=CreateTreeView(12,12,240,400,window)
SetGadgetLayout tree,1,0,1,1
root=TreeViewRoot(tree)
scene=AddTreeViewNode("Scene",root)
camera=AddTreeViewNode("Camera",scene)
lights=AddTreeViewNode("Lights",scene)
AddTreeViewNode "Key light",lights
AddTreeViewNode "Fill light",lights
ExpandTreeViewNode scene
ExpandTreeViewNode lights
SelectTreeViewNode camera

editor=CreateTextArea(264,12,432,400,window,1)
SetGadgetLayout editor,1,1,1,1
SetGadgetText editor,"Select a node in the hierarchy."+Chr(13)+"Unicode text: Crème, 東京, 🌍"
FormatTextAreaText editor,40,90,170,3,0,22

running=True
While running
    eventID=WaitEvent()
    If eventID=EVENT_WINDOW_CLOSE And EventSource()=window Then running=False
    If eventID=EVENT_GADGET_ACTION And EventSource()=tree
        node=SelectedTreeViewNode(tree)
        SetGadgetText editor,"Selected node: "+TreeViewNodeText(node)
    EndIf
Wend

FreeGadget window
End