Changeset 696


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

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    • Property rcs:date changed from 2003/04/10 22:03:45 to 2003/05/22 21:40:38
    • Property rcs:lines changed from +238 -25 to +10 -8
    • Property rcs:rev changed from 1.60 to 1.61
    r670 r696  
    152152#---------------------------------------------------------------------------
    153153# override options with locally defined values
     154set filelist [file join $expgui(scriptdir) localconfig]
     155if {$tcl_platform(platform) == "windows"} {
     156    lappend filelist "c:/gsas.config"
     157} else {
     158    lappend filelist [file join ~ .gsas_config]
     159}
    154160if {[catch {
    155     set filelist [list \
    156             [file join $expgui(scriptdir) localconfig] \
    157             [file join ~ .gsas_config] \
    158             [file join ~ gsas.config]]
    159161    foreach file $filelist {
    160162        if [file exists $file] {source $file}
     
    551553    global expgui env tcl_platform graph peakinfo
    552554    if {$tcl_platform(platform) == "windows"} {
    553         set fp [open [file join ~ gsas.config] a]
     555        set fp [open c:/gsas.config a]
    554556    } else {
    555557        set fp [open [file join ~ .gsas_config] a]
    556558    }
    557559
    558     puts $fp "# saved options from [clock format [clock ticks]]"
     560    puts $fp "# EXPGUI saved options from [clock format [clock ticks]]"
    559561    foreach item {archive asorttype hsorttype filesort disaglSeparateBox \
    560562            font autoexpload autoiconify autotick autoGRWND} {
Note: See TracChangeset for help on using the changeset viewer.