Changeset 695

Timestamp:

Dec 4, 2009 5:10:28 PM (14 years ago)

Author:

toby

Message:

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

File:

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

trunk/liveplot

@@ -947 +947 @@
     global graph expgui peakinfo tcl_platform
     if {$tcl_platform(platform) == "windows"} {
-        set fp [open [file join ~ gsas.config] a]
+        set fp [open c:/gsas.config a]
     } else {
         set fp [open [file join ~ .gsas_config] a]
     }
+    puts $fp "# LIVEPLOT saved options from [clock format [clock ticks]]"
     foreach v {printout legend outname outcmd autoraise chi2 xunits yunits} {
         puts $fp "set graph($v) [list $graph($v)]"
@@ -1878 +1879 @@
 }
 #-------------------------------------------------------------------------
-
-
 # override options with locally defined values
+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 {[catch {
-    foreach file [list \
-                      [file join $expgui(scriptdir) localconfig] \
-                      [file join ~ .gsas_config]] {
+    foreach file $filelist {
         if [file exists $file] {source $file}
     }