SuperStrict
Import MaxGui.Drivers

Global   TreeView1:TGadget

Local Window1:TGadget = CreateWindow:TGadget("Window1",240,99,150,177,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE |WINDOW_STATUS |WINDOW_CLIENTCOORDS )
   TreeView1:TGadget = CreateTreeView:TGadget(19,15,107,131,Window1:TGadget,Null)
      AddTreeViewNode( "Item1",TreeViewRoot(TreeView1:TGadget) )
      AddTreeViewNode( "Item2",TreeViewRoot(TreeView1:TGadget) )
      AddTreeViewNode( "Item3",TreeViewRoot(TreeView1:TGadget) )

Repeat
   WaitEvent()
   Select EventID()
      Case EVENT_WINDOWCLOSE
         Select EventSource()
            Case Window1   Window1_WC( Window1:TGadget )
         End Select

      Case EVENT_GADGETACTION
         Select EventSource()
            Case TreeView1   TreeView1_GA( TreeView1:TGadget, EventExtra:Object() )
         End Select

      Case EVENT_GADGETSELECT
         Select EventSource()
            Case TreeView1   TreeView1_GS( TreeView1:TGadget, EventExtra:Object() )
         End Select

   End Select
Forever

Function Window1_WC( Window:TGadget )
   DebugLog "Window Window1 wants to be closed"

   End
End Function

Function TreeView1_GA( TreeView:TGadget , Node:Object )
   DebugLog "TreeView TreeView1 double clicked a Node"
   
End Function

Function TreeView1_GS( TreeView:TGadget , Node:Object )
   DebugLog "TreeView TreeView1 single clicked a Node"
   
End Function