Changeset 703 for trunk/dumpexp.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:10:36 PM (11 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dumpexp.tcl

    • Property rcs:date changed from 2003/04/10 22:19:24 to 2003/05/22 21:46:50
    • Property rcs:lines changed from +10 -7 to +10 -4
    • Property rcs:rev changed from 1.3 to 1.4
    r675 r703  
    4444#source [file join $expgui(scriptdir) gsascmds.tcl]
    4545# override options with locally defined values
    46 if [file exists [file join $expgui(scriptdir) localconfig]] {
    47     source [file join $expgui(scriptdir) localconfig]
     46set filelist [file join $expgui(scriptdir) localconfig]
     47if {$tcl_platform(platform) == "windows"} {
     48    lappend filelist "c:/gsas.config"
     49} else {
     50    lappend filelist [file join ~ .gsas_config]
    4851}
    49 if [file exists [file join ~ .gsas_config]] {
    50     source [file join ~ .gsas_config]
     52catch {
     53    foreach file $filelist {
     54        if [file exists $file] {source $file}
     55    }
    5156}
     57
    5258SetTkDefaultOptions $expgui(font)
    5359
Note: See TracChangeset for help on using the changeset viewer.