Posted to tcl by saedelaere at Thu Jul 29 20:39:21 GMT 2010view raw

  1. ttk::treeview .tree \
  2. -columns {name number} \
  3. -show headings
  4.  
  5. grid .tree
  6.  
  7. for {set i 0} {$i<10} {incr i} {
  8. .tree insert {} end -values [list name($i) $i]
  9. }
  10.  
  11. bind .tree <<TreeviewSelect>> {puts [.tree item [.tree selection] -values]}
  12.  
  13. .tree state disabled