[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.5

version 1.1, 1999/09/28 21:25:36 version 1.5, 1999/12/03 18:39:38
Line 153  proc runScorer { setFile } { Line 153  proc runScorer { setFile } {
     configureOptions $num      configureOptions $num
     loadScorerConfig $num      loadScorerConfig $num
     Centre_Dialog $scorerWin default      Centre_Dialog $scorerWin default
   #    trace variable gScorer(quit.$num) w "scorerClose $num 0"
 }  }
   
 ###########################################################  ###########################################################
Line 640  proc startScorer { num } { Line 641  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 761  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 1287  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 1301  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 1542  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 1554  proc scorerQuit { num } {
 proc scorerClose { num {mustClose 0} {dummy ""} {dummy2 ""} {dummy3 ""}} {  proc scorerClose { num {mustClose 0} {dummy ""} {dummy2 ""} {dummy3 ""}} {
     global gScorer      global gScorer
   
     if { $gScorer(needToUpdateDB) } {      puts "scorerClose"
  set message \      set message "Are you sure you wish to close?"
     "Are you sure you wish to close, you haven't yet updated the .sb file."      catch {
     } else {   if { $gScorer(needToUpdateDB) } {
  set message "Are you sure you wish to close?"      set message \
    "Are you sure you wish to close, you haven't yet updated the .sb file."
    }
     }      }
     if { (! $mustClose ) && [makeSure $message ] == "Cancel" } { return 0 }      if { (! $mustClose ) && [makeSure $message ] == "Cancel" } { return 0 }
     stopScorer $num      stopScorer $num
Removed from v.1.1  
changed lines
  Added in v.1.5

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