Changeset 693 for trunk/lstview


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lstview

    • Property rcs:date changed from 2003/04/10 21:58:31 to 2003/05/22 21:39:17
    • Property rcs:lines changed from +10 -3 to +16 -7
    • Property rcs:rev changed from 1.12 to 1.13
    r667 r693  
    353353
    354354proc SaveOptions {} {
    355     global txtvw
    356     set fp [open [file join ~ .gsas_config] a]
     355    global txtvw tcl_platform
     356    if {$tcl_platform(platform) == "windows"} {
     357        set fp [open c:/gsas.config a]
     358    } else {
     359        set fp [open [file join ~ .gsas_config] a]
     360    }
     361    puts $fp "# LSTVIEW saved options from [clock format [clock ticks]]"
    357362    puts $fp "set txtvw(followcycle) [list $txtvw(followcycle)]"
    358363    puts $fp "set txtvw(font) [list $txtvw(font)]"
     
    400405
    401406# override options with locally defined values
     407set filelist [file join $expgui(scriptdir) localconfig]
     408if {$tcl_platform(platform) == "windows"} {
     409    lappend filelist "c:/gsas.config"
     410} else {
     411    lappend filelist [file join ~ .gsas_config]
     412}
    402413if {[catch {
    403     foreach file [list \
    404                       [file join $expgui(scriptdir) localconfig] \
    405                       [file join ~ .gsas_config]] {
     414    foreach file $filelist {
    406415        if [file exists $file] {source $file}
    407416    }
Note: See TracChangeset for help on using the changeset viewer.