ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2025-01-26 04:40:34 +05:00
Code Issues Packages Projects Releases Wiki Activity

check for flag 'typevariable' in the load geometry procedure

Browse Source
This commit is contained in:
Joachim Schoeberl 2010-03-17 11:11:43 +00:00
parent fc095693d9
commit f4ba49d9c0
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ng/menustat.tcl
View File

@ -47,9 +47,12 @@ menu .ngmenu.file
# {"Naomi Geometry" {.nao} } # {"Naomi Geometry" {.nao} }
# {"New Geometry file" {.ngg} } # {"New Geometry file" {.ngg} }
# set file [tk_getOpenFile -filetypes $types -initialdir $dirname -typevariable loadgeomtypevar] if {[catch {
set file [tk_getOpenFile -filetypes $types -initialdir $dirname] set file [tk_getOpenFile -filetypes $types -initialdir $dirname -typevariable loadgeomtypevar]
}]} {
set file [tk_getOpenFile -filetypes $types -initialdir $dirname]
}
if {$file != ""} { if {$file != ""} {
AddRecentFile $file AddRecentFile $file
Ng_LoadGeometry $file Ng_LoadGeometry $file