Annotation of capa/capa51/GUITools/ideas/of5tool/export.tcl, revision 1.1

1.1     ! albertel    1: proc export {} {
        !             2:     global problem
        !             3: 
        !             4:     set file [ tk_getSaveFile -defaultextension .qz \
        !             5: 		  -filetypes {{{Quizzer file} {.qz}}}  ]
        !             6:     if { $file == "" } {
        !             7: 	tk_messageBox -icon info -type ok -message "Information not saved"
        !             8: 	return
        !             9:     }
        !            10:     
        !            11:     set fileid [open $file "w"]
        !            12:     
        !            13:     exportQZHeader $fileid
        !            14: 
        !            15:     for { set i 1 } { $i <= $problem(num) } { incr i } {
        !            16: 	switch $problem(prob.$i.type) {
        !            17: 	    "Multiple Choice" 
        !            18: 	    {
        !            19: 		MCexportHeader $fileid $i
        !            20: 		MCexportLeafs $fileid $i
        !            21: 		MCexportAns $fileid $i 
        !            22: 	    }
        !            23: 	    -
        !            24: 	    {
        !            25: 		tk_messageBox -icon error \
        !            26: 	         -message "Problem type $problem(prob.$i.type) not supported" \
        !            27: 		    -type ok
        !            28: 	    }
        !            29: 	}
        !            30:     }
        !            31: 
        !            32:     exportQZFooter $fileid 
        !            33: 
        !            34:     close $fileid
        !            35:     
        !            36:     tk_messageBox -icon info -message "Exported to $file" -type ok
        !            37: }
        !            38: 
        !            39: proc exportQZHeader { fileid } {
        !            40:     global problem
        !            41: 
        !            42:     puts $fileid "//Created by HACK GUI to qz files"
        !            43:     puts $fileid "//CAPA system software is copyrighted by Michigan State University."
        !            44:     puts $fileid "//"
        !            45:     puts $fileid "/IMP \"../Tools/StdMacros\""
        !            46:     puts $fileid "/IMP \"../Tools/StdUnits\""
        !            47:     if { $problem(includes) != "" } {
        !            48:     }
        !            49:     puts $fileid "/IMP \"HWTop\""
        !            50: }
        !            51: 
        !            52: proc exportQZFooter { fileid } {
        !            53:     global problem
        !            54: 
        !            55:     puts $fileid "//*********************"
        !            56:     puts $fileid "/END($problem(endline))"
        !            57: }
        !            58: 

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>