Strict

Local window:TGadget=CreateWindow("My Window",50,50,240,240)
Local treeview:TGadget=CreateTreeView(0,0,200,200,window)

SetGadgetLayout treeview,2,2,2,2

Local root:TGadget=TreeViewRoot(treeview)

Local help:TGadget=AddTreeViewNode("Help",root)
AddTreeViewNode "topic 1",help
AddTreeViewNode "topic 2",help
AddTreeViewNode "topic 3",help

Local projects:TGadget=AddTreeViewNode("Projects",root)
AddTreeViewNode "project 1",projects
AddTreeViewNode("project 2",projects)
AddTreeViewNode("project 3 is a big waste of time",projects)

While WaitEvent()
   Select EventID()

                Case EVENT_GADGETSELECT
     Local NODE:TGadget = SelectedTreeViewNode(treeview)
      Local s:String=String(NODE.name)
                     print s
      Case EVENT_WINDOWCLOSE
         End
   End Select
Wend

Type TFLNode Extends TFLWidget
   Field   owner:TFLWidget
   Field   parent:TFLNode
'   Field   kids:TList=New TList
   Field   index,open
   Field   indent$,text$,label$,icon

   Method Delete()
      Free()
   End Method

   Method InsertNode:TGadget(pos,text$,icon)
      Local   n:TFLNode
      Local   l:TLink
      If pos>=0 And pos<kids.count()
         n=TFLNode(kids.ValueAtIndex(pos))
         l=kids.FindLink(n)
      EndIf      
      n=New TFLNode
      n.parent=Self
      n.owner=owner
      n.text=text
      n.indent=indent+"~t"
      If l
         kids.InsertBeforeLink n,l
      Else
         kids.AddLast n
      EndIf
      owner.SetDirty
      Return n
   End Method

         Local s:String=String(TFLNode(NODE).text)