diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-24 19:26:02 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-24 19:26:02 (GMT) |
| commit | dceb443889b818b469be319def725a2d957e3e02 (patch) | |
| tree | 003b69d856a555967ab088316c87b7b6b344297e | |
| parent | 7b86ab679cb22e35a9d315ce61bea073d192fde6 (diff) | |
| download | blt-dceb443889b818b469be319def725a2d957e3e02.zip blt-dceb443889b818b469be319def725a2d957e3e02.tar.gz blt-dceb443889b818b469be319def725a2d957e3e02.tar.bz2 | |
add strip plot support
| -rw-r--r-- | ds9/library/plotbar.tcl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/ds9/library/plotbar.tcl b/ds9/library/plotbar.tcl index d38a49a..4ad3a43 100644 --- a/ds9/library/plotbar.tcl +++ b/ds9/library/plotbar.tcl @@ -131,7 +131,7 @@ proc PlotBarAddGraph {varname} { upvar #0 $varname var global $varname - set cc $var(graph,current) + set cc $var(graph,current) set var(type$cc) bar set var(graph$cc) [blt::barchart $var(canvas).gr$cc \ @@ -149,14 +149,19 @@ proc PlotBarUpdateGraph {varname} { global $varname PlotUpdateGraph $varname - $var(graph) configure -barmode $var(bar,mode) + + set tt $var(graph,total) + set cc $var(graph,current) + + for {set ii 1} {$ii<=$tt} {incr ii} { + $var(graph$ii) configure -barmode $var(bar,mode) + } } proc PlotBarUpdateElement {varname} { upvar #0 $varname var global $varname - set nn $var(data,current) PlotGetVar $varname $nn if {$var(error)} { |