Changeset 703 for trunk

Timestamp:

Dec 4, 2009 5:10:36 PM (13 years ago)

Author:

toby

Message:

# on 2003/05/22 21:46:50, toby did:
Implement windows init file as c:\GSAS\GSAS.CONFIG in place of .GSAS_CONFIG

File:

• trunk/dumpexp.tcl (modified) (1 diff, 3 props)

trunk/dumpexp.tcl

@@ -44 +44 @@
 #source [file join $expgui(scriptdir) gsascmds.tcl]
 # override options with locally defined values
-if [file exists [file join $expgui(scriptdir) localconfig]] {
-    source [file join $expgui(scriptdir) localconfig]
+set filelist [file join $expgui(scriptdir) localconfig]
+if {$tcl_platform(platform) == "windows"} {
+    lappend filelist "c:/gsas.config"
+} else {
+    lappend filelist [file join ~ .gsas_config]
 }
-if [file exists [file join ~ .gsas_config]] {
-    source [file join ~ .gsas_config]
+catch {
+    foreach file $filelist {
+        if [file exists $file] {source $file}
+    }
 }
+
 SetTkDefaultOptions $expgui(font)