###########################################################
# 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
}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>