--- capa/capa51/GUITools/scorer.tcl	1999/09/28 21:25:36	1.1
+++ capa/capa51/GUITools/scorer.tcl	1999/12/03 18:39:38	1.5
@@ -153,6 +153,7 @@ proc runScorer { setFile } {
     configureOptions $num
     loadScorerConfig $num
     Centre_Dialog $scorerWin default
+#    trace variable gScorer(quit.$num) w "scorerClose $num 0"
 }
 
 ###########################################################
@@ -640,7 +641,7 @@ proc startScorer { num } {
     label $errors.num -textvariable gScorer(numerrors.$num)
     pack $errors.mesg $errors.num -side left
     
-    button $statusButtons.handleErrors -text "Handle Errors" \
+    button $statusButtons.handleErrors -text "Save Errors" \
 	-command "handleErrorsScorer $num"
     button $statusButtons.printMsg -text "Print Messages" \
 	-command "printScorerMsg $num"
@@ -760,7 +761,7 @@ proc initScorer { num } {
 proc getLine { num } {
     global gScorer
     
-    scorerMessage $num "Getting Responses"
+    scorerMessage $num "\nGetting Responses"
 
     set done 0
     while { ! $done } {
@@ -1286,8 +1287,6 @@ proc scorerStudent { num } {
 	finishScoring $num answerStruct
 	return
     }
-    incr gScorer(student.$num)
-    update
     set gScorer(needToUpdateDB) 1
 #parseanswerline
     if { [catch {parseLine $num $answer answerStruct} errorMsg ] } {
@@ -1302,6 +1301,8 @@ proc scorerStudent { num } {
 	    displayError "An error occured when attempting to grade a student. The error is: $errorMsg"
 	}
     }
+    incr gScorer(student.$num)
+    update
     after idle "scorerStudent $num"
 }
 
@@ -1541,6 +1542,7 @@ proc scorerQuit { num } {
     global gScorer
     set gScorer(pause.$num) 1
     set gScorer(quit.$num) 1
+    puts [trace vinfo gScorer(quit.$num)]
     catch {scorerMessage $num "Quitting. . . " info}
 }
 
@@ -1552,11 +1554,13 @@ proc scorerQuit { num } {
 proc scorerClose { num {mustClose 0} {dummy ""} {dummy2 ""} {dummy3 ""}} {
     global gScorer
 
-    if { $gScorer(needToUpdateDB) } {
-	set message \
-	    "Are you sure you wish to close, you haven't yet updated the .sb file."
-    } else {
-	set message "Are you sure you wish to close?"
+    puts "scorerClose"
+    set message "Are you sure you wish to close?"
+    catch {
+	if { $gScorer(needToUpdateDB) } {
+	    set message \
+		"Are you sure you wish to close, you haven't yet updated the .sb file."
+	}
     }
     if { (! $mustClose ) && [makeSure $message ] == "Cancel" } { return 0 }
     stopScorer $num