Changeset 696 for trunk/expgui

Timestamp:

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

Author:

toby

Message:

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

File:

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

trunk/expgui

@@ -152 +152 @@
 #---------------------------------------------------------------------------
 # 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 {
-    set filelist [list \
-            [file join $expgui(scriptdir) localconfig] \
-            [file join ~ .gsas_config] \
-            [file join ~ gsas.config]]
     foreach file $filelist {
         if [file exists $file] {source $file}
@@ -551 +553 @@
     global expgui env tcl_platform graph peakinfo
     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 "# saved options from [clock format [clock ticks]]"
+    puts $fp "# EXPGUI saved options from [clock format [clock ticks]]"
     foreach item {archive asorttype hsorttype filesort disaglSeparateBox \
             font autoexpload autoiconify autotick autoGRWND} {