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

version 1.1, 1999/09/28 21:25:36 version 1.3, 1999/11/08 22:30:02
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 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.3

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