Changeset 2744 for trunk/gui/scripts/xyresult.tcl
- Timestamp:
- Dec 27, 2011, 2:45:13 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/xyresult.tcl
r2693 r2744 298 298 set _autoColorI 0 299 299 } 300 300 set color [lindex $itk_option(-autocolors) $_autoColorI] 301 301 if { "" == $color} { 302 303 302 set color black 303 } 304 304 set params(-color) $color 305 305 # set up for next auto color … … 356 356 foreach obj $_dlist { 357 357 if {[info exists _dataobj2raise($obj)] && $_dataobj2raise($obj)} { 358 359 360 361 358 lappend top $obj 359 } else { 360 lappend bottom $obj 361 } 362 362 } 363 363 set _dlist [concat $bottom $top] … … 438 438 set id $map($axis)$type 439 439 foreach {min max} [$dataobj limits $axis$type] break 440 441 442 443 444 445 446 447 440 set amin [$dataobj hints ${axis}min] 441 set amax [$dataobj hints ${axis}max] 442 if { $amin != "" } { 443 set min $amin 444 } 445 if { $amax != "" } { 446 set max $amax 447 } 448 448 if {"" != $min && "" != $max} { 449 449 if {![info exists _limits($id-min)]} { … … 1499 1499 itcl::body Rappture::XyResult::GetTextMarkerOptions {style} { 1500 1500 array set textOptions { 1501 "-color" 1502 "-textcolor" 1503 "-font" 1504 "-xoffset" 1505 "-yoffset" 1506 "-anchor" 1507 "-rotate" 1501 "-color" "-outline" 1502 "-textcolor" "-outline" 1503 "-font" "-font" 1504 "-xoffset" "-xoffset" 1505 "-yoffset" "-yoffset" 1506 "-anchor" "-anchor" 1507 "-rotate" "-rotate" 1508 1508 } 1509 1509 set options {} … … 1526 1526 # rebuild if needed, so we know about the axes 1527 1527 if 0 { 1528 1529 1530 1531 1532 1533 1534 1528 # Don't do this. Given dataobj may be deleted in the rebuild 1529 1530 # rebuild if needed, so we know about the axes 1531 if {[$_dispatcher ispending !rebuild]} { 1532 $_dispatcher cancel !rebuild 1533 $_dispatcher event -now !rebuild 1534 } 1535 1535 } 1536 1536 # what is the x axis? x? x2? x3? ...
Note: See TracChangeset
for help on using the changeset viewer.