Changeset 992 for trunk/expgui
- Timestamp:
- Jul 29, 2010 10:07:52 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/expgui
r987 r992 2459 2459 set row 1 2460 2460 set nterms [hapinfo $hist $i profterms] 2461 set lbls "dummy [GetProfileTerms $i $hist $ptype]"2461 set lbls "dummy [GetProfileTerms $i $hist [expr abs($ptype)]]" 2462 2462 for { set num 1 } { $num <= $nterms } { incr num } { 2463 2463 set term {} … … 2531 2531 set nterms [hapinfo $hist1 $phase1 profterms] 2532 2532 set htype [string range $expmap(htype_$hist1) 2 2] 2533 set lbls "dummy [GetProfileTerms $phase1 $hist1 $ptype]"2533 set lbls "dummy [GetProfileTerms $phase1 $hist1 [expr abs($ptype)]]" 2534 2534 # Create a frame for this type 2535 2535 incr i … … 3021 3021 set col -1 3022 3022 set row 1 3023 set lbls "dummy [GetProfileTerms $phase $hist $ptype]"3023 set lbls "dummy [GetProfileTerms $phase $hist [expr abs($ptype)]]" 3024 3024 pack [frame $w.1 -bd 6 -relief groove -bg beige \ 3025 3025 ] -side top -expand yes -fill both
Note: See TracChangeset
for help on using the changeset viewer.