Changeset 660 for trunk

Timestamp:

Dec 4, 2009 5:09:53 PM (16 years ago)

Author:

toby

Message:

# on 2002/10/31 17:29:18, toby did:
do better job reporting gsas_config errors & write to file better

File:

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

trunk/expgui ¶

@@ -141 +141 @@
 # override options with locally defined values
 if {[catch {
-    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]
+    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 "Error reading localconfig or .gsas_config: $errmsg" \
-            -icon warning -type Ignore -default ignore \
-            -helplink "expguierr.html Customizewarning"
+        -message $msg -icon warning -type Ignore -default ignore \
+        -helplink "expguierr.html Customizewarning"
 }
 SetTkDefaultOptions $expgui(font)
@@ -534 +533 @@
     foreach item {archive asorttype hsorttype filesort disaglSeparateBox \
             font autoexpload autoiconify autotick} {
-        puts $fp "set expgui($item) $expgui($item)"
+        puts $fp "set expgui($item) [list $expgui($item)]"
     }
     if {$tcl_platform(platform) != "windows"} {
-        puts $fp "set env(GSASBACKSPACE) $env(GSASBACKSPACE)"
+        puts $fp "set env(GSASBACKSPACE) [list $env(GSASBACKSPACE)]"
     }
     foreach v {printout legend outname outcmd autoraise color_excl \
             color_obs color_calc} {
-        puts $fp "set graph($v) $graph($v)"
+        puts $fp "set graph($v) [list $graph($v)]"
     }
     foreach v {obssym obssize exclsym exclsize} {
-        puts $fp "set peakinfo($v) $peakinfo($v)"
+        puts $fp "set peakinfo($v) [list $peakinfo($v)]"
     }
     close $fp