- Timestamp:
- Jun 19, 2012, 2:48:12 PM (12 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/sequenceresult.tcl
r3021 r3047 446 446 ::Rappture::Curve { 447 447 Rappture::XyResult $viewer 448 pack $viewer -expand yes -fill both 449 } 450 ::Rappture::Histogram { 451 Rappture::HistogramResult $viewer 448 452 pack $viewer -expand yes -fill both 449 453 } -
trunk/gui/scripts/xyresult.tcl
r2811 r3047 283 283 -param "" 284 284 } 285 # Override the defaults with first the <style> specified and then the 286 # settings list passed into this routoue. 287 array set params [$dataobj hints style] 285 288 foreach {opt val} $settings { 286 289 if {![info exists params($opt)]} { … … 299 302 set _autoColorI 0 300 303 } 301 304 set color [lindex $itk_option(-autocolors) $_autoColorI] 302 305 if { "" == $color} { 303 306 set color black … … 694 697 set color $_dataobj2color($dataobj) 695 698 } else { 696 set color [$dataobj hints color] 697 if {"" == $color} { 698 set color black 699 } 699 set color black 700 700 } 701 701 if {[info exists _dataobj2width($dataobj)]} { … … 704 704 set lwidth 2 705 705 } 706 707 706 if {[info exists _dataobj2dashes($dataobj)]} { 708 707 set dashes $_dataobj2dashes($dataobj) … … 710 709 set dashes "" 711 710 } 712 713 711 if {([$xv length] <= 1) || ($lwidth == 0)} { 714 712 set sym square
Note: See TracChangeset
for help on using the changeset viewer.