Hierarchical Listbox
Creating entries in a TixHList widget:
tixScrolledHList .h -options {
hlist.separator /
hlist.drawBranch 1
hlist.indent 20
}
set hlist [.h subwidget hlist]
foreach dir {/ /dev /usr /usr/local /var} {
$hlist add $dir -itemtype imagetext \
-image $folder -text $dir
}
Other operations: entryconfigure, hide, show and delete.