group Namespace Reference

Functions
	save

Function Documentation

save()

group::save

Definition at line 86 of file group.tcl.

References fileTypes().

    proc save {} {
        global workDir
        set ext [minsky.canvas.item.defaultExtension]
        set fname [tk_getSaveFile -defaultextension $ext  -initialdir $workDir \
                      -filetypes [fileTypes $ext]]            
        if [string length $fname] {
            eval saveCanvasItemAsFile {$fname}
        }
    }

Here is the call graph for this function: