Return to scorer.errors.tcl CVS log

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

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
    
}