Return to scorer.errors.tcl CVS log

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

Annotation of capa/capa51/GUITools/scorer.errors.tcl, revision 1.1.1.1

1.1       albertel    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: }