capa/capa51/GUITools/gradesubjective.tcl - diff

Return to gradesubjective.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

version 1.2, 1999/11/02 19:10:44	version 1.3, 1999/11/05 19:32:17
Line 78 proc createGradeSubjWindow {} {	Line 78 proc createGradeSubjWindow {} {
pack configure $idlist.scroll -fill y	pack configure $idlist.scroll -fill y

button $idbutton.delete -text Delete -command subjDeleteId	button $idbutton.delete -text Delete -command subjDeleteId
pack $idbutton.delete	frame $idbutton.spacer -width 30
	label $idbutton.l1 -text "\# Words:"
	label $idbutton.words -textvariable gSubj(numwords)
	pack $idbutton.delete $idbutton.spacer $idbutton.l1 $idbutton.words -side left

set response [frame $grade.response]	set response [frame $grade.response]
pack $response	pack $response
Line 318 proc subjNext {} {	Line 321 proc subjNext {} {
subjInsertIds $id	subjInsertIds $id
}	}

	append words [string trim [$gSubj(response) get 0.0 end-1c]] " "
	set ws [format " \t\n"]
	set gSubj(numwords) [regsub -all -- \[$ws\]+ $words {} b]
wm title .gradesubjective "Grading Subjective, Set $gSubj(set), Prob $gSubj(quest), $id"	wm title .gradesubjective "Grading Subjective, Set $gSubj(set), Prob $gSubj(quest), $id"
if { [catch {set gSubj(score) $gSubj(done.$id.score)}] } {	if { [catch {set gSubj(score) $gSubj(done.$id.score)}] } {
set gSubj(score) ""	set gSubj(score) ""