Changeset 695


Ignore:
Timestamp:
Dec 4, 2009 5:10:28 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/liveplot

    • Property rcs:date changed from 2003/05/13 16:15:55 to 2003/05/22 21:40:10
    • Property rcs:lines changed from +7 -3 to +11 -8
    • Property rcs:rev changed from 1.32 to 1.33
    r688 r695  
    947947    global graph expgui peakinfo tcl_platform
    948948    if {$tcl_platform(platform) == "windows"} {
    949         set fp [open [file join ~ gsas.config] a]
     949        set fp [open c:/gsas.config a]
    950950    } else {
    951951        set fp [open [file join ~ .gsas_config] a]
    952952    }
     953    puts $fp "# LIVEPLOT saved options from [clock format [clock ticks]]"
    953954    foreach v {printout legend outname outcmd autoraise chi2 xunits yunits} {
    954955        puts $fp "set graph($v) [list $graph($v)]"
     
    18781879}
    18791880#-------------------------------------------------------------------------
    1880 
    1881 
    18821881# override options with locally defined values
     1882set filelist [file join $expgui(scriptdir) localconfig]
     1883if {$tcl_platform(platform) == "windows"} {
     1884    lappend filelist "c:/gsas.config"
     1885} else {
     1886    lappend filelist [file join ~ .gsas_config]
     1887}
    18831888if {[catch {
    1884     foreach file [list \
    1885                       [file join $expgui(scriptdir) localconfig] \
    1886                       [file join ~ .gsas_config]] {
     1889    foreach file $filelist {
    18871890        if [file exists $file] {source $file}
    18881891    }
Note: See TracChangeset for help on using the changeset viewer.