Changeset 693

Timestamp:

Dec 4, 2009 5:10:26 PM (11 years ago)

Author:

toby

Message:

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

File:

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

trunk/lstview

@@ -353 +353 @@
 
 proc SaveOptions {} {
-    global txtvw
-    set fp [open [file join ~ .gsas_config] a]
+    global txtvw 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 "# LSTVIEW saved options from [clock format [clock ticks]]"
     puts $fp "set txtvw(followcycle) [list $txtvw(followcycle)]"
     puts $fp "set txtvw(font) [list $txtvw(font)]"
@@ -400 +405 @@
 
 # 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}
     }