capa/capa51/GUITools/scorer.errors.tcl - diff

Return to scorer.errors.tcl CVS log

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

version 1.1, 1999/09/28 21:25:37	version 1.2, 2000/02/22 18:10:27
Line 6	Line 6
proc handleErrorsScorer { num } {	proc handleErrorsScorer { num } {
global gScorer	global gScorer

	if { [catch {set length [llength $gScorer(errors.$num)]}]} {
	displayMessage "There are no errors to save."
	}

if { "" == [set file [tk_getSaveFile]] } { return }	if { "" == [set file [tk_getSaveFile]] } { return }
if { [catch {set fileId [open $file "w"]}] } {	if { [catch {set fileId [open $file "w"]}] } {
displayError "Unable to write to $file"	displayError "Unable to write to $file"
}	}

set length [llength $gScorer(errors.$num)]
for { set i 0 } { $i < $length } { incr i } {	for { set i 0 } { $i < $length } { incr i } {
puts $fileId "#[lindex $gScorer(errortype.$num) $i]"	puts $fileId "#[lindex $gScorer(errortype.$num) $i]"
puts $fileId "#[lindex $gScorer(errors.$num) $i]"	puts $fileId "#[lindex $gScorer(errors.$num) $i]"