diff --git a/ng/menustat.tcl b/ng/menustat.tcl index 92eeff43..e1604540 100644 --- a/ng/menustat.tcl +++ b/ng/menustat.tcl @@ -48,8 +48,7 @@ menu .ngmenu.file # {"Naomi Geometry" {.nao} } # {"New Geometry file" {.ngg} } - - set file [tk_getOpenFile -filetypes $types -initialdir $dirname] + set file [tk_getOpenFile -filetypes $types -initialdir $dirname -typevariable loadgeomtypevar] if {$file != ""} { AddRecentFile $file Ng_LoadGeometry $file diff --git a/ng/variables.tcl b/ng/variables.tcl index 5e843278..6feeef00 100644 --- a/ng/variables.tcl +++ b/ng/variables.tcl @@ -4,6 +4,8 @@ set drawmode rotate set selectvisual geometry set dirname . +set loadgeomtypevar "All Geometry types" + set basefilename filename set meshoptions.fineness 3 @@ -383,7 +385,8 @@ proc saveoptions { } { if {$file != ""} { set datei [open $file w] - + puts $datei "dirname ${dirname}" + puts $datei "loadgeomtypevar \"${loadgeomtypevar}\"" puts $datei "meshoptions.fineness ${meshoptions.fineness}" puts $datei "meshoptions.firststep ${meshoptions.firststep}" puts $datei "meshoptions.laststep ${meshoptions.laststep}"