fancy/inscrutable

Posted to tcl by Stu at Wed Aug 20 10:50:24 GMT 2008view raw

set i -1; foreach d $data { incr i
set idx2node($i) [
$table insert {} end \
-values [list \
[lindex $d end] \
[lindex $d 0] \
[lindex $d 3] \
$i \
]
]
}