Changeset 992 for trunk/gsascmds.tcl


Ignore:
Timestamp:
Jul 29, 2010 10:07:52 AM (10 years ago)
Author:
toby
Message:

changes for POWGEN: profile #<0; use data limits from prm file for TOF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    r989 r992  
    762762    foreach lbls $lbllist {
    763763        incr i
    764         $menu add command -label $i -command \
    765                 "set expgui(newpeaktype) $i; \
    766                 FillChangeProfileType $w.c $hist $phase $i [list $lbls] [list $oldlbls]"
     764        set j $i
     765        # determine if negative profiles are allowed
     766        if {[string range $expmap(htype_$hist) 2 2] == "T"} {
     767            if {[histinfo $hist proftbl] > 0 && $i > 2} {
     768                set j -$i
     769            }
     770        }
     771        $menu add command -label $j -command \
     772                "set expgui(newpeaktype) $j; \
     773                FillChangeProfileType $w.c $hist $phase $j [list $lbls] [list $oldlbls]"
    767774    }
    768775    set expgui(newpeaktype) $ptype
Note: See TracChangeset for help on using the changeset viewer.