- BWidget::Tree pathName ?option value…?
Manual page edit
http://tcllib.sourceforge.net/BWman/Tree.htmlExamples edit
Selection Improvements
TR - The Tree has no default binding for the selection of ranges. This is usually done by selectiong a node and then selecting another while pressing down the Shift key. This proc will do the work:
proc TreeSelectRange {tree node} { # # add a continuous range of nodes to an existing selection # # tree -> path to the BWidget tree # node -> the node that has been clicked on # # remember current selection: set sel [$tree selection get] # get last selected node: set last [lindex $sel end] # select the requested range: $tree selection range $last $node # add the remembered nodes: foreach node $sel {$tree selection add $node} }Then you just need something like
$tree bindText <Shift-Button-1> [list TreeSelectRange %W]to make the binding work.