# $Header: /home/cvsroot/tcldb/wisql/Tlib/setSort,v 1.2 1997/08/28 05:24:23 de Exp $
# tcl procs saved on Tue Sep 05 09:33:13 PDT 1995

proc setSort {w col dir} {

	upvar #0 EZRcols cols
	upvar #0 EZRsorts sorts
	upvar #0 EZRsorder sorder
	upvar #0 EZRnumsrt numsrt

	set sn $numsrt

	if {$sorts($col) == 0} {
		set sorder($sn) $col
		set sorts($col) $dir
		$w.data.pic.win.winR.$col.$dir select
		$w.data.pic.win.winR.$col.so insert 0 $sn
		incr numsrt
	} else {
		if {$sorts($col) == $dir} {
			deleteElem $col EZRsorder $numsrt
			$w.data.pic.win.winR.$col.$dir deselect
			$w.data.pic.win.winR.$col.$dir configure -relief flat 
			$w.data.pic.win.winR.$col.so delete 0 end
			set sorts($col) 0
			incr numsrt -1
		} else {
			if {$dir == "a"} {set other "d"} else {set other "a"}
			$w.data.pic.win.winR.$col.$other deselect
			$w.data.pic.win.winR.$col.$other configure -relief flat
			$w.data.pic.win.winR.$col.$dir select
			set sorts($col) $dir 
		}
	}
        loop s 0 $numsrt {
                set c $sorder($s)
                $w.data.pic.win.winR.$c.so delete 0 end
                $w.data.pic.win.winR.$c.so insert 0 $s
        }
}

