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

  1. set i -1; foreach d $data { incr i
  2. set idx2node($i) [
  3. $table insert {} end \
  4. -values [list \
  5. [lindex $d end] \
  6. [lindex $d 0] \
  7. [lindex $d 3] \
  8. $i \
  9. ]
  10. ]
  11. }
  12.