Changeset 992 for trunk/expgui

Timestamp:

Jul 29, 2010 10:07:52 AM (11 years ago)

Author:

toby

Message:

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

File:

• trunk/expgui (modified) (3 diffs)

trunk/expgui

@@ -2459 +2459 @@
             set row 1
             set nterms [hapinfo $hist $i profterms]
-            set lbls "dummy [GetProfileTerms $i $hist $ptype]"
+            set lbls "dummy [GetProfileTerms $i $hist [expr abs($ptype)]]"
             for { set num 1 } { $num <= $nterms } { incr num } {
                 set term {}
@@ -2531 +2531 @@
                 set nterms [hapinfo $hist1 $phase1 profterms]
                 set htype [string range $expmap(htype_$hist1) 2 2]
-                set lbls "dummy [GetProfileTerms $phase1 $hist1 $ptype]"
+                set lbls "dummy [GetProfileTerms $phase1 $hist1 [expr abs($ptype)]]"
                 # Create a frame for this type
                 incr i
@@ -3021 +3021 @@
     set col -1
     set row 1
-    set lbls "dummy [GetProfileTerms $phase $hist $ptype]"
+    set lbls "dummy [GetProfileTerms $phase $hist [expr abs($ptype)]]"
     pack [frame $w.1 -bd 6 -relief groove  -bg beige \
             ] -side top -expand yes -fill both