godley Namespace Reference

Functions
	export

Function Documentation

export()

godley::export

Definition at line 884 of file wiring.tcl.

    proc export {} {
        global workDir type
        set item minsky.canvas.item
        
        set fname [tk_getSaveFile -filetypes {{"CSV files" .csv TEXT} {"LaTeX files" .tex TEXT}} \
                       -initialdir $workDir -typevariable type]  
        if {$fname==""} return
        set workDir [file dirname $fname]
        if [string match -nocase *.csv "$fname"] {
            eval $item.table.exportToCSV {$fname}
        } elseif [string match -nocase *.tex "$fname"] {
            eval $item.table.exportToLaTeX {$fname}
        } else {
            switch  $type {
                "CSV files" {eval $item.table.exportToCSV {$fname.csv}}
                "LaTeX files" {eval $item.table.exportToLaTeX {$fname.tex}}
            }
        }
    }