![]() ![]() | ![]() |
Created directory structure
########################################################### # handleErrorsScorer ########################################################### ########################################################### ########################################################### proc handleErrorsScorer { num } { global gScorer if { "" == [set file [tk_getSaveFile]] } { return } if { [catch {set fileId [open $file "w"]}] } { displayError "Unable to write to $file" } set length [llength $gScorer(errors.$num)] for { set i 0 } { $i < $length } { incr i } { puts $fileId "#[lindex $gScorer(errortype.$num) $i]" puts $fileId "#[lindex $gScorer(errors.$num) $i]" } close $fileId } proc handleErrorsScorer2 { num } { global gScorer if {[winfo exists .scorerError$num]} { capaRaise .scorerError$num return } set errorWin [toplevel .scorerError$num] set generalInfoFrame set studentInfoFrame }