Changeset 659

Timestamp:

Dec 4, 2009 5:09:52 PM (11 years ago)

Author:

toby

Message:

# on 2002/10/31 17:28:17, toby did:
trap gsas_config errors & write to file better

File:

• trunk/liveplot (modified) (2 diffs, 3 props)

trunk/liveplot

@@ -937 +937 @@
     set fp [open [file join ~ .gsas_config] a]
     foreach v {printout legend outname outcmd autoraise chi2} {
-        puts $fp "set graph($v) $graph($v)"
+        puts $fp "set graph($v) [list $graph($v)]"
     }
     foreach v {diff chi2 bkg calc obs input fit} {
-        puts $fp "set graph(color_$v) $graph(color_$v)"
+        puts $fp "set graph(color_$v) [list $graph(color_$v)]"
     }
     foreach v {font lblfontsize fadetime hklbox pixelregion autotick} {
-        puts $fp "set expgui($v) $expgui($v)"
+        puts $fp "set expgui($v) [list $expgui($v)]"
     }
     foreach v {obssym obssize inpsym inpsize} {
-        puts $fp "set peakinfo($v) $peakinfo($v)"
+        puts $fp "set peakinfo($v) [list $peakinfo($v)]"
     }
     close $fp
@@ -1866 +1866 @@
 
 # override options with locally defined values
-if [file exists [file join $expgui(scriptdir) localconfig]] {
-    source [file join $expgui(scriptdir) localconfig]
-}
-if [file exists [file join ~ .gsas_config]] {
-    source [file join ~ .gsas_config]
+if {[catch {
+    foreach file [list \
+                      [file join $expgui(scriptdir) localconfig] \
+                      [file join ~ .gsas_config]] {
+        if [file exists $file] {source $file}
+    }
+} errmsg]} {
+    set msg "Error reading file $file (aka [file nativename $file]): $errmsg"
+    MyMessageBox -parent . -title "Customize warning" \
+        -message $msg -icon warning -type Ignore -default ignore \
+        -helplink "expguierr.html Customizewarning"
 }
 SetTkDefaultOptions $expgui(font)