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

## tvSortBy $tv $column ?parent? --
#       Sort treeview values by column
#
proc tvSortBy {tv column {parent {}}} {
    set l [list]
    foreach item [$tv children $parent] {
        lappend l [list $item [$tv set $item $column]]
    }
    set o [list]
    foreach pair [lsort -dictionary -index 1 $l] {
        lappend o [lindex $pair 0]
    }
    $tv children $parent $o
}