diff --git a/ng/nghelp.tcl b/ng/nghelp.tcl index e13ab7c3..3d4191f7 100644 --- a/ng/nghelp.tcl +++ b/ng/nghelp.tcl @@ -187,7 +187,7 @@ set_control_help $f.first "First step in mesh generation. Usually, meshing star set_control_help $f.last "Last step in mesh generation. If only the surface mesh is required, please set \"Last Step\" to \"Optimize Surface\"" set_control_help .bubar.surfm "Start mesh generation" -set_control_help .bubar.stopm "Start mesh generation" +set_control_help .bubar.stopm "Stop mesh generation" proc help_item { helptext } {p puts $helptext diff --git a/ng/variables.tcl b/ng/variables.tcl index a8c1ca9b..a11ef096 100644 --- a/ng/variables.tcl +++ b/ng/variables.tcl @@ -623,15 +623,17 @@ proc saveoptions { } { -# the ini file is save on demand : +# the ini file is saved on demand : proc saveinifile { } { uplevel 1 { - set datei [open ng.ini w] - for { set i [.ngmenu.file.recent index last] } { $i >= 1 } { incr i -1 } { - puts $datei "recentfile \"[.ngmenu.file.recent entrycget $i -label]\"" - } - - close $datei + if {[catch { set datei [open ng.ini w] } result ]} { + puts "cannot write to ng.ini file" + } { + for { set i [.ngmenu.file.recent index last] } { $i >= 1 } { incr i -1 } { + puts $datei "recentfile \"[.ngmenu.file.recent entrycget $i -label]\"" + } + close $datei + } } @@ -641,12 +643,14 @@ proc saveinifile { } { proc savemeshinifile { } { uplevel 1 { - set datei [open ngmesh.ini w] - for { set i [.ngmenu.file.recentmesh index last] } { $i >= 1 } { incr i -1 } { - puts $datei "recentfile \"[.ngmenu.file.recentmesh entrycget $i -label]\"" - } - - close $datei + if {[catch { set datei [open ngmesh.ini w] } result } { + puts "cannot write to ng.ini file" + } { + for { set i [.ngmenu.file.recentmesh index last] } { $i >= 1 } { incr i -1 } { + puts $datei "recentfile \"[.ngmenu.file.recentmesh entrycget $i -label]\"" + } + close $datei + } }