Changeset 698

Timestamp:

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

Author:

toby

Message:

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

File:

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

trunk/widplt

@@ -674 +674 @@
 # save some of the global options in ~/.gsas_config
 proc SaveOptions {} {
-    global graph
-    set fp [open [file join ~ .gsas_config] a]
+    global graph  tcl_platform
+    if {$tcl_platform(platform) == "windows"} {
+        set fp [open c:/gsas.config a]
+    } else {
+        set fp [open [file join ~ .gsas_config] a]
+    }
+    puts $fp "# WIDPLT saved options from [clock format [clock ticks]]"
     puts $fp "set graph(legend) [list $graph(legend)]"
     puts $fp "set graph(printout) [list $graph(printout)]"
@@ -994 +999 @@
 
 # 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}
     }