proc getHeads {r1} {

	global SheetT
#	proc to get last prev header row in sheet

        set hc [$SheetT tag row heads]
#        puts stderr "list of col head rows is $hc"
        set lr [lindex $hc 0]
        set hr $lr
        foreach r $hc {
                if {$r >= $r1} {
                        set hr $lr
                        break
                }
                set lr $r
        }

	return $hr

}
