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" } { if { $exportfiletype == "Elmer Format" } {
set file [tk_chooseDirectory] set file [tk_chooseDirectory]
} else { } else {
set file [tk_getSaveFile -filetypes "{ \"$exportfiletype\" {$extension} }" ] # set file [tk_getSaveFile -filetypes "{ \"$exportfiletype\" {$extension} }" ]
set file [tk_getSaveFile -filetypes "{ \"$exportfiletype\" {*}}" ]
} }
if {$file != ""} { if {$file != ""} {