export filetype

This commit is contained in:
Joachim Schoeberl 2009-09-22 07:15:08 +00:00
parent c4c3773610
commit b06e32f9f7

View File

@ -245,7 +245,8 @@ loadmeshinifile;
if { $exportfiletype == "Elmer Format" } {
set file [tk_chooseDirectory]
} else {
set file [tk_getSaveFile -filetypes "{ \"$exportfiletype\" {$extension} }" ]
# set file [tk_getSaveFile -filetypes "{ \"$exportfiletype\" {$extension} }" ]
set file [tk_getSaveFile -filetypes "{ \"$exportfiletype\" {*}}" ]
}
if {$file != ""} {