source ../../oo.tcl @import core.* @import gui.* wm geometry . "300x200" set box [TreeBox new] $box label: "This is a TreeBox widget" $box root: "Main node" foreach i {1 2 3 4} { if [catch {$box add: "Main node/node $i"} err] { puts stderr "$err" } foreach j {1 2 3} { if [catch {$box add: "Main node/node $i/subnode $j"} err] { puts stderr "$err" } } } $box onSelection: { puts stderr "selection is now $selection" } $box onRightClick: { puts stderr "RIGHT_CLICK - selection:$selection" } $box selection: "Main node/node 1/subnode 1" $box show