diff --git a/ng/menustat.tcl b/ng/menustat.tcl index 8da79496..aa93dfce 100644 --- a/ng/menustat.tcl +++ b/ng/menustat.tcl @@ -47,9 +47,12 @@ menu .ngmenu.file # {"Naomi Geometry" {.nao} } # {"New Geometry file" {.ngg} } - -# set file [tk_getOpenFile -filetypes $types -initialdir $dirname -typevariable loadgeomtypevar] - set file [tk_getOpenFile -filetypes $types -initialdir $dirname] + + if {[catch { + set file [tk_getOpenFile -filetypes $types -initialdir $dirname -typevariable loadgeomtypevar] + }]} { + set file [tk_getOpenFile -filetypes $types -initialdir $dirname] + } if {$file != ""} { AddRecentFile $file Ng_LoadGeometry $file