proc addCell2Form {which t} {

	global curCell CellValues CellFormulae curVal
	global SheetAddB

#	set t table 
        set win [sheetWin $t]
        set b $win.c.adds

#	which is A for add, anything else for Normal.

	if {$which == "A"} {

	bind $t <ButtonRelease-1> {}
	bind $t <ButtonRelease-1> {
    		if {[winfo exists %W]} {
        		tkCancelRepeat
			appendSelCV %W
			break
    		}
	}
	$b configure -text "NormalSelect" -command "addCell2Form N $t"  -background cyan

	} else {

	bind $t <ButtonRelease-1> {}
    		
	$b configure -text "Add2Formula" -command "addCell2Form A $t"  -background lavender

	}
}

