Posted to tcl by jenglish at Tue Nov 17 19:23:28 GMT 2009view raw

  1. ## tvSortBy $tv $column ?parent? --
  2. # Sort treeview values by column
  3. #
  4. proc tvSortBy {tv column {parent {}}} {
  5. set l [list]
  6. foreach item [$tv children $parent] {
  7. lappend l [list $item [$tv set $item $column]]
  8. }
  9. set o [list]
  10. foreach pair [lsort -dictionary -index 1 $l] {
  11. lappend o [lindex $pair 0]
  12. }
  13. $tv children $parent $o
  14. }