Changeset 46


Ignore:
Timestamp:
Dec 4, 2009 4:59:29 PM (11 years ago)
Author:
toby
Message:

# on 1999/01/21 22:55:47, toby did:
move & consolidate sourcing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/liveplot

    • Property rcs:date changed from 1999/01/21 22:44:12 to 1999/01/21 22:55:47
    • Property rcs:lines changed from +112 -73 to +17 -19
    • Property rcs:rev changed from 1.2 to 1.3
    r45 r46  
    122122set expgui(gsasexe) [file join $expgui(gsasdir) exe]
    123123
    124 # fetch EXP file processing routines
    125 source [file join $expgui(scriptdir) readexp.tcl]
    126 
    127 # override options with locally defined values
    128 if [file exists [file join $expgui(scriptdir) localconfig]] {
    129     source [file join $expgui(scriptdir) localconfig]
    130 }
    131 if [file exists [file join ~ .gsas_config]] {
    132     source [file join ~ .gsas_config]
    133 }
    134124
    135125proc readdata {box} {
     
    467457}
    468458
     459# fetch EXP file processing routines
     460source [file join $expgui(scriptdir) readexp.tcl]
     461
     462set fl [file join $expgui(scriptdir) icddcmd.tcl]
     463if [file exists $fl] {source $fl}
     464set fl [file join $expgui(scriptdir) cellgen.tcl]
     465if [file exists $fl] {source $fl}
     466
     467# override options with locally defined values
     468if [file exists [file join $expgui(scriptdir) localconfig]] {
     469    source [file join $expgui(scriptdir) localconfig]
     470}
     471if [file exists [file join ~ .gsas_config]] {
     472    source [file join ~ .gsas_config]
     473}
     474
    469475# vectors
    470476vector xvec
     
    537543        -command "SaveOptions"
    538544
    539 # fetch EXP file processing routines
    540 source [file join $expgui(scriptdir) readexp.tcl]
    541 
    542 set fl [file join $expgui(scriptdir) icddcmd.tcl]
    543 if [file exists $fl] {source $fl}
    544 set fl [file join $expgui(scriptdir) cellgen.tcl]
    545 if [file exists $fl] {source $fl}
    546 
    547545pack [menubutton .a.help -text Help -underline 0 -menu .a.help.menu] -side right
    548546menu .a.help.menu -tearoff 0
Note: See TracChangeset for help on using the changeset viewer.