remember load path

This commit is contained in:
Joachim Schoeberl 2009-09-11 17:54:09 +00:00
parent 4ed55d9a75
commit 078e664824
2 changed files with 5 additions and 3 deletions

View File

@ -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

View File

@ -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}"