version 1.1.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]" |