ForkMaster/netgen
1
0
Fork 0
mirror of https://github.com/NGSolve/netgen.git synced 2024-12-25 21:40:33 +05:00
Code Issues Packages Projects Releases Wiki Activity

remember load path

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ng/menustat.tcl
View File

@ -48,8 +48,7 @@ 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]
set file [tk_getOpenFile -filetypes $types -initialdir $dirname]
if {$file != ""} { if {$file != ""} {
AddRecentFile $file AddRecentFile $file
Ng_LoadGeometry $file Ng_LoadGeometry $file

5
ng/variables.tcl
View File

@ -4,6 +4,8 @@ set drawmode rotate
set selectvisual geometry set selectvisual geometry
set dirname . set dirname .
set loadgeomtypevar "All Geometry types"
set basefilename filename set basefilename filename
set meshoptions.fineness 3 set meshoptions.fineness 3
@ -383,7 +385,8 @@ proc saveoptions { } {
if {$file != ""} { if {$file != ""} {
set datei [open $file w] set datei [open $file w]
puts $datei "dirname ${dirname}"
puts $datei "loadgeomtypevar \"${loadgeomtypevar}\""
puts $datei "meshoptions.fineness ${meshoptions.fineness}" puts $datei "meshoptions.fineness ${meshoptions.fineness}"
puts $datei "meshoptions.firststep ${meshoptions.firststep}" puts $datei "meshoptions.firststep ${meshoptions.firststep}"
puts $datei "meshoptions.laststep ${meshoptions.laststep}" puts $datei "meshoptions.laststep ${meshoptions.laststep}"