Return to scorer.errors.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

Initial revision

    1: ###########################################################
    2: # handleErrorsScorer
    3: ###########################################################
    4: ###########################################################
    5: ###########################################################
    6: proc handleErrorsScorer { num } {
    7:     global gScorer
    8: 
    9:     if { "" == [set file [tk_getSaveFile]] } { return }
   10:     if { [catch {set fileId [open $file "w"]}] } {
   11: 	displayError "Unable to write to $file"
   12:     }
   13: 
   14:     set length [llength $gScorer(errors.$num)]
   15:     for { set i 0 } { $i < $length } { incr i } {
   16: 	puts $fileId "#[lindex $gScorer(errortype.$num) $i]"
   17: 	puts $fileId "#[lindex $gScorer(errors.$num) $i]"
   18:     }
   19:     close $fileId
   20: }
   21: 
   22: proc handleErrorsScorer2 { num } {
   23:     global gScorer
   24: 
   25:     if {[winfo exists .scorerError$num]} { 
   26: 	capaRaise .scorerError$num
   27: 	return 
   28:     } 
   29:     set errorWin [toplevel .scorerError$num] 
   30:     
   31:     set generalInfoFrame
   32:     set studentInfoFrame
   33:     
   34: }