Changeset 1671 for branches/blt4/gui/scripts/xylegend.tcl
- Timestamp:
- Mar 25, 2010, 9:42:41 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/blt4/gui/scripts/xylegend.tcl
r1651 r1671 449 449 # unique values. 450 450 451 foreach node $nodes { 452 set elem [$_tree label $node] 451 set labels {} 452 foreach node $nodes { 453 set elem [$_tree label $node] 454 set label [$graph_ element cget $elem -label] 453 455 $xcoords append [GetData $elem -x] 454 456 set elements [linsert $elements 0 $elem] 457 set labels [linsert $labels 0 $label] 455 458 } 456 459 # Sort the abscissas keeping unique values. … … 487 490 incr count 488 491 } 489 set elements [lsort -dictionary $elements]492 set labels [lsort -dictionary $labels] 490 493 set name "avg$count" 491 set label "Avg. [join $ elements ,]"494 set label "Avg. [join $labels ,]" 492 495 493 496 # Don't use the vector because we don't know when it will be cleaned up.
Note: See TracChangeset
for help on using the changeset viewer.