[BACK]Return to scorer.tcl CVS log [TXT] [DIR] Up to [LON-CAPA] / capa / capa51 / GUITools

Diff for /capa/capa51/GUITools/scorer.tcl between versions 1.1 and 1.4

version 1.1, 1999/09/28 21:25:36 version 1.4, 1999/12/01 18:22:00
Line 640  proc startScorer { num } { Line 640  proc startScorer { num } {
     label $errors.num -textvariable gScorer(numerrors.$num)      label $errors.num -textvariable gScorer(numerrors.$num)
     pack $errors.mesg $errors.num -side left      pack $errors.mesg $errors.num -side left
           
     button $statusButtons.handleErrors -text "Handle Errors" \      button $statusButtons.handleErrors -text "Save Errors" \
  -command "handleErrorsScorer $num"   -command "handleErrorsScorer $num"
     button $statusButtons.printMsg -text "Print Messages" \      button $statusButtons.printMsg -text "Print Messages" \
  -command "printScorerMsg $num"   -command "printScorerMsg $num"
Line 760  proc initScorer { num } { Line 760  proc initScorer { num } {
 proc getLine { num } {  proc getLine { num } {
     global gScorer      global gScorer
           
     scorerMessage $num "Getting Responses"      scorerMessage $num "\nGetting Responses"
   
     set done 0      set done 0
     while { ! $done } {      while { ! $done } {
Line 1286  proc scorerStudent { num } { Line 1286  proc scorerStudent { num } {
  finishScoring $num answerStruct   finishScoring $num answerStruct
  return   return
     }      }
     incr gScorer(student.$num)  
     update  
     set gScorer(needToUpdateDB) 1      set gScorer(needToUpdateDB) 1
 #parseanswerline  #parseanswerline
     if { [catch {parseLine $num $answer answerStruct} errorMsg ] } {      if { [catch {parseLine $num $answer answerStruct} errorMsg ] } {
Line 1302  proc scorerStudent { num } { Line 1300  proc scorerStudent { num } {
     displayError "An error occured when attempting to grade a student. The error is: $errorMsg"      displayError "An error occured when attempting to grade a student. The error is: $errorMsg"
  }   }
     }      }
       incr gScorer(student.$num)
       update
     after idle "scorerStudent $num"      after idle "scorerStudent $num"
 }  }
   
Line 1541  proc scorerQuit { num } { Line 1541  proc scorerQuit { num } {
     global gScorer      global gScorer
     set gScorer(pause.$num) 1      set gScorer(pause.$num) 1
     set gScorer(quit.$num) 1      set gScorer(quit.$num) 1
       puts [trace vinfo gScorer(quit.$num)]
     catch {scorerMessage $num "Quitting. . . " info}      catch {scorerMessage $num "Quitting. . . " info}
 }  }
   
Line 1552  proc scorerQuit { num } { Line 1553  proc scorerQuit { num } {
 proc scorerClose { num {mustClose 0} {dummy ""} {dummy2 ""} {dummy3 ""}} {  proc scorerClose { num {mustClose 0} {dummy ""} {dummy2 ""} {dummy3 ""}} {
     global gScorer      global gScorer
   
       puts "scorerClose"
     if { $gScorer(needToUpdateDB) } {      if { $gScorer(needToUpdateDB) } {
  set message \   set message \
     "Are you sure you wish to close, you haven't yet updated the .sb file."      "Are you sure you wish to close, you haven't yet updated the .sb file."
Removed from v.1.1  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>