Changeset 3046 for branches/blt4
- Timestamp:
- Jun 19, 2012, 2:47:19 PM (12 years ago)
- Location:
- branches/blt4/gui/scripts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/blt4/gui/scripts/sequenceresult.tcl
r2745 r3046 660 660 switch -- $_class { 661 661 ::Rappture::Curve - 662 ::Rappture::Histogram - 662 663 ::Rappture::DataTable - 663 664 ::Rappture::Image { … … 758 759 set _animate 1 759 760 } 761 ::Rappture::Histgram { 762 Rappture::HistogramResult $viewer 763 set _viewerclass ::Rappture::XyResult 764 set _animate 1 765 } 760 766 ::Rappture::DataTable { 761 767 Rappture::DataTable $viewer -
branches/blt4/gui/scripts/xyresult.tcl
r3025 r3046 280 280 -param "" 281 281 } 282 # Override the defaults with first the <style> specified and then the 283 # settings list passed into this routoue. 284 array set params [$dataobj hints style] 282 285 foreach {opt val} $settings { 283 286 if {![info exists params($opt)]} { … … 286 289 set params($opt) $val 287 290 } 288 289 291 # if type is set to "scatter", then override the width 290 292 if {"scatter" == $params(-type)} { … … 296 298 set _autoColorI 0 297 299 } 298 300 set color [lindex $itk_option(-autocolors) $_autoColorI] 299 301 if { "" == $color} { 300 302 set color black … … 306 308 } 307 309 } 308 309 310 # convert -linestyle to BLT -dashes 310 311 switch -- $params(-linestyle) { … … 313 314 default { set params(-linestyle) {} } 314 315 } 315 316 316 # if -brightness is set, then update the color 317 317 if {$params(-brightness) != 0} { … … 328 328 } 329 329 } 330 331 330 set pos [lsearch -exact $dataobj $_dlist] 332 331 if {$pos < 0} { … … 958 957 # - pop up tooltip about data 959 958 # 959 $g element deactivate $_hilite(elem) 960 960 if { [$g element exists $_hilite(elem)] && $_hilite(elem) != $elem } { 961 $g element deactivate $_hilite(elem)962 961 $g crosshairs configure -hide yes 963 962 Rappture::Tooltip::tooltip cancel … … 1037 1036 # - take down tooltip 1038 1037 # 1039 if { [$g element exists _hilite(elem)] } { 1040 $g element deactivate $_hilite(elem) 1041 } 1038 $g element deactivate $_hilite(elem) 1042 1039 set allx [$g x2axis use] 1043 1040 if {[llength $allx] > 0} {
Note: See TracChangeset
for help on using the changeset viewer.