Changeset 398


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

# on 2001/06/29 18:03:32, toby did:
Add bkgedit command

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 2001/05/23 20:02:11 to 2001/06/29 18:03:32
    • Property rcs:lines changed from +5 -5 to +35 -1
    • Property rcs:rev changed from 1.34 to 1.35
    r393 r398  
    10291029    exec $wishshell [file join $expgui(scriptdir) widplt] \
    10301030            $expgui(expfile) &
     1031}
     1032
     1033# run bkgedit
     1034proc bkgedit {"hst {}"} {
     1035    global expgui liveplot wishshell expmap
     1036    set expnam [file root [file tail $expgui(expfile)]]
     1037    if {$hst == ""} {
     1038        # which histograms are ready for use?
     1039        set validlist {}
     1040        foreach ihist $expmap(powderlist) {
     1041            if {[string range $expmap(htype_$ihist) 3 3] == "" || \
     1042                    [string range $expmap(htype_$ihist) 3 3] == "*"} {
     1043                lappend validlist $ihist
     1044            }
     1045        }
     1046        if {[llength $validlist] == 0} {
     1047            MyMessageBox -parent . -title "No Valid Histograms" \
     1048                    -message "No histograms are ready to plot. Run POWPREF and try again" \
     1049                    -icon warning -helplink "expguierr.html NoValidHist"
     1050            return
     1051        }
     1052        # use $liveplot(hst) if valid, the 1st entry otherwise
     1053        if {[lsearch $validlist $liveplot(hst)] != -1} {
     1054            set hst $liveplot(hst)
     1055        } else {
     1056            set hst [lindex $validlist 0]
     1057        }
     1058    }
     1059    if {$expgui(autoiconify)} {wm iconify .}
     1060    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
    10311065}
    10321066
Note: See TracChangeset for help on using the changeset viewer.