source ../../oo.tcl @import core.* #- creating Tree object with "Network" for root node tree = [[Tree new] root: Network] #- adding eth0 node $tree add: Network/eth0 $tree add: Network/eth0/0 #- adding serial node $tree add: Network/serial0 $tree add: Network/serial0/0 $tree add: Network/serial0/1 #- outputting all nodes in a sorted list puts stderr [lsort [$tree allChildsOf: Network]] #- releasing instance $tree release