declare
[Tree QTk]={ModuleLink ['x-ozlib://anders/strasheela/Prototyper/grolaux-tree-1.0/Tree.ozf'
			 'x-oz://system/wp/QTk.ozf']}

declare
TreeNode=Tree.treeNode
C
{{QTk.build td(canvas(glue:nswe
		      handle:C
		      tdscrollbar:true
		      lrscrollbar:true))} show}
%%
RootNode={New TreeNode init(canvas:C
			    font:"Helvetica 10"
			    height:18
			    label:"Node"
			   )}
{RootNode draw(x:2 y:2 height:_)}
%%
proc{AddChildren Node Nu}
   Label={Node get(label:$)}
in
   {List.forAllInd {List.make Nu}
    proc{$ I _}
       NewNode={New TreeNode init(parent:Node
				  label:Label#" "#I)}
    in
       {Node addLeaf(node:NewNode)}
       {AddChildren NewNode Nu-1}
    end}
end
   
{AddChildren RootNode 5}
{RootNode expand}