Changeset 431


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

# on 2001/09/04 22:58:36, toby did:
add excledt

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 2001/09/04 22:11:06 to 2001/09/04 22:58:36
    • Property rcs:lines changed from +2 -2 to +34 -0
    • Property rcs:rev changed from 1.36 to 1.37
    r421 r431  
    10591059    if {$expgui(autoiconify)} {wm iconify .}
    10601060    exec $wishshell [file join $expgui(scriptdir) bkgedit] \
     1061            $expnam $hst $liveplot(legend)
     1062    if {$expgui(autoiconify)} {wm deiconify .}
     1063    # check for changes in the .EXP file immediately
     1064    whenidle
     1065}
     1066
     1067# run excledt
     1068proc excledit {"hst {}"} {
     1069    global expgui liveplot wishshell expmap
     1070    set expnam [file root [file tail $expgui(expfile)]]
     1071    if {$hst == ""} {
     1072        # which histograms are ready for use?
     1073        set validlist {}
     1074        foreach ihist $expmap(powderlist) {
     1075            if {[string range $expmap(htype_$ihist) 3 3] == "" || \
     1076                    [string range $expmap(htype_$ihist) 3 3] == "*"} {
     1077                lappend validlist $ihist
     1078            }
     1079        }
     1080        if {[llength $validlist] == 0} {
     1081            MyMessageBox -parent . -title "No Valid Histograms" \
     1082                    -message "No histograms are ready to plot. Run POWPREF and try again" \
     1083                    -icon warning -helplink "expguierr.html NoValidHist"
     1084            return
     1085        }
     1086        # use $liveplot(hst) if valid, the 1st entry otherwise
     1087        if {[lsearch $validlist $liveplot(hst)] != -1} {
     1088            set hst $liveplot(hst)
     1089        } else {
     1090            set hst [lindex $validlist 0]
     1091        }
     1092    }
     1093    if {$expgui(autoiconify)} {wm iconify .}
     1094    exec $wishshell [file join $expgui(scriptdir) excledt] \
    10611095            $expnam $hst $liveplot(legend)
    10621096    if {$expgui(autoiconify)} {wm deiconify .}
Note: See TracChangeset for help on using the changeset viewer.