diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-24 21:21:36 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-24 21:21:36 (GMT) |
commit | d180078a75bf8d0b3090d564dbdb48d79ba43947 (patch) | |
tree | 20e6921486c1eb0b8e87276cfe4785cd76101568 /ds9/library/plotline.tcl | |
parent | ecfba834a6bbe38a4994f364c805f8305e1b7c5f (diff) | |
download | blt-d180078a75bf8d0b3090d564dbdb48d79ba43947.zip blt-d180078a75bf8d0b3090d564dbdb48d79ba43947.tar.gz blt-d180078a75bf8d0b3090d564dbdb48d79ba43947.tar.bz2 |
add strip plot support
Diffstat (limited to 'ds9/library/plotline.tcl')
-rw-r--r-- | ds9/library/plotline.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ds9/library/plotline.tcl b/ds9/library/plotline.tcl index 44f71f2..e5b0a05 100644 --- a/ds9/library/plotline.tcl +++ b/ds9/library/plotline.tcl @@ -230,7 +230,7 @@ proc PlotLineUpdateElement {varname} { set cc $var(graph,current) # warning: uses current vars - if {$tt == 0} { + if {$var(graph$cc,data,total) == 0} { return } @@ -267,7 +267,7 @@ proc PlotLineUpdateElement {varname} { set cap 0 } - $var(graph) element configure "d-${nn}" \ + $var(graph$cc) element configure "d-${nn}" \ -label $var(name) -hide [expr !$var(show)] \ -symbol $var(shape,symbol) -fill $clr -scalesymbols no \ -pixels 5 -outline $var(shape,color) \ |