Changeset 698


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

Legend:

Unmodified
Added
Removed
  • trunk/widplt

    • Property rcs:date changed from 2003/04/10 22:12:18 to 2003/05/22 21:41:53
    • Property rcs:lines changed from +10 -3 to +16 -7
    • Property rcs:rev changed from 1.13 to 1.14
    r671 r698  
    674674# save some of the global options in ~/.gsas_config
    675675proc SaveOptions {} {
    676     global graph
    677     set fp [open [file join ~ .gsas_config] a]
     676    global graph  tcl_platform
     677    if {$tcl_platform(platform) == "windows"} {
     678        set fp [open c:/gsas.config a]
     679    } else {
     680        set fp [open [file join ~ .gsas_config] a]
     681    }
     682    puts $fp "# WIDPLT saved options from [clock format [clock ticks]]"
    678683    puts $fp "set graph(legend) [list $graph(legend)]"
    679684    puts $fp "set graph(printout) [list $graph(printout)]"
     
    994999
    9951000# override options with locally defined values
     1001set filelist [file join $expgui(scriptdir) localconfig]
     1002if {$tcl_platform(platform) == "windows"} {
     1003    lappend filelist "c:/gsas.config"
     1004} else {
     1005    lappend filelist [file join ~ .gsas_config]
     1006}
    9961007if {[catch {
    997     foreach file [list \
    998                       [file join $expgui(scriptdir) localconfig] \
    999                       [file join ~ .gsas_config]] {
     1008    foreach file $filelist {
    10001009        if [file exists $file] {source $file}
    10011010    }
Note: See TracChangeset for help on using the changeset viewer.