tree_to_horizontal_table tree { print "id" }What it does:
generates a table display of a given treeDefined in: /web/philip/tcl/ad-trees.tcl
Source code:
set result "<table border>\n<tr>\n" append result [tree_to_htable $tree [tree_height $tree] 0 $print ""] append result "</tr>\n</table>\n" return $result