Changeset 697 for trunk/dumpprof.tcl


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

# on 2003/05/22 21:41:18, toby did:
initial tweaking

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dumpprof.tcl

    • Property rcs:date changed from 2003/05/13 16:21:28 to 2003/05/22 21:41:18
    • Property rcs:rev changed from 1.1 to 1.2
    • Property rcs:lines set to +11 -5
    r689 r697  
    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}
    5257SetTkDefaultOptions $expgui(font)
     
    7580    lappend list2 $expmap(htype_$hist)
    7681    foreach i $expmap(phaselist_$hist) {
    77         set list [string trim [hapinfo $hist $i proftype]]
     82        set list $i
     83        lappend list [string trim [hapinfo $hist $i proftype]]
    7884        lappend list [hapinfo $hist $i pcut]
    7985        set nterms [hapinfo $hist $i profterms]
Note: See TracChangeset for help on using the changeset viewer.