Changeset 3046 for branches/blt4


Ignore:
Timestamp:
Jun 19, 2012 2:47:19 PM (12 years ago)
Author:
gah
Message:
 
Location:
branches/blt4/gui/scripts
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/blt4/gui/scripts/sequenceresult.tcl

    r2745 r3046  
    660660    switch -- $_class {
    661661        ::Rappture::Curve -
     662        ::Rappture::Histogram -
    662663        ::Rappture::DataTable -
    663664        ::Rappture::Image {
     
    758759            set _animate 1
    759760        }
     761        ::Rappture::Histgram {
     762            Rappture::HistogramResult $viewer
     763            set _viewerclass ::Rappture::XyResult
     764            set _animate 1
     765        }
    760766        ::Rappture::DataTable {
    761767            Rappture::DataTable $viewer
  • branches/blt4/gui/scripts/xyresult.tcl

    r3025 r3046  
    280280        -param ""
    281281    }
     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]
    282285    foreach {opt val} $settings {
    283286        if {![info exists params($opt)]} {
     
    286289        set params($opt) $val
    287290    }
    288 
    289291    # if type is set to "scatter", then override the width
    290292    if {"scatter" == $params(-type)} {
     
    296298            set _autoColorI 0
    297299        }
    298         set color [lindex $itk_option(-autocolors) $_autoColorI]
     300        set color [lindex $itk_option(-autocolors) $_autoColorI]
    299301        if { "" == $color} {
    300302            set color black
     
    306308        }
    307309    }
    308 
    309310    # convert -linestyle to BLT -dashes
    310311    switch -- $params(-linestyle) {
     
    313314        default { set params(-linestyle) {} }
    314315    }
    315 
    316316    # if -brightness is set, then update the color
    317317    if {$params(-brightness) != 0} {
     
    328328        }
    329329    }
    330 
    331330    set pos [lsearch -exact $dataobj $_dlist]
    332331    if {$pos < 0} {
     
    958957        # - pop up tooltip about data
    959958        #
     959        $g element deactivate $_hilite(elem)
    960960        if { [$g element exists $_hilite(elem)] && $_hilite(elem) != $elem } {
    961             $g element deactivate $_hilite(elem)
    962961            $g crosshairs configure -hide yes
    963962            Rappture::Tooltip::tooltip cancel
     
    10371036        # - take down tooltip
    10381037        #
    1039         if { [$g element exists _hilite(elem)] } {
    1040             $g element deactivate $_hilite(elem)
    1041         }
     1038        $g element deactivate $_hilite(elem)
    10421039        set allx [$g x2axis use]
    10431040        if {[llength $allx] > 0} {
Note: See TracChangeset for help on using the changeset viewer.