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) "" |