proc cellSelect t {

	global curCell CellValues CellFormulae curVal

	set win [sheetWin $t]
	set msgw $win.msg
	set elab $win.c.clab
	set addb $win.c.adds

	set r [$t index active row]
	set c [$t index active col]
	set i "$r,$c"

#	puts stderr "cur ind of $t is $i"
#	puts stderr "row $r col $c"

	set ind "$r,$c"
	set ca [ctype char [expr 64+$c]]

	if {[info exists CellFormulae($ind)]} {
		set curVal "= $CellFormulae($ind)"
	} elseif {[info exists CellValues($ind)]} {
		set curVal $CellValues($ind)
	} else {
		set curVal "<empty>"
		set CellValues($ind) ""
	}

	$elab configure -text "$ca$r Edit :"
	set curCell $ind
	compSheet $t

}

