diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-24 18:05:05 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-24 18:05:05 (GMT) |
commit | c79a0b8a9aadd5d43cb9366cada358e6fa20ce30 (patch) | |
tree | b60120faed288577555fdd89a62298de83dbded5 /ds9/library/plotline.tcl | |
parent | cdb0395c318af057350a1f9999c2d74d309d26bf (diff) | |
download | blt-c79a0b8a9aadd5d43cb9366cada358e6fa20ce30.zip blt-c79a0b8a9aadd5d43cb9366cada358e6fa20ce30.tar.gz blt-c79a0b8a9aadd5d43cb9366cada358e6fa20ce30.tar.bz2 |
add strip plot support
Diffstat (limited to 'ds9/library/plotline.tcl')
-rw-r--r-- | ds9/library/plotline.tcl | 26 |
1 files changed, 8 insertions, 18 deletions
diff --git a/ds9/library/plotline.tcl b/ds9/library/plotline.tcl index 42f8b0f..1ef9ab4 100644 --- a/ds9/library/plotline.tcl +++ b/ds9/library/plotline.tcl @@ -228,24 +228,14 @@ proc PlotLineAddGraph {varname} { upvar #0 $varname var global $varname - set var(type) line - set var(canvas) [ttk::frame $var(top).fr] - set var(graph) [blt::graph $var(canvas).line \ - -width 600 \ - -height 500 \ - -highlightthickness 0 \ - ] - - pack $var(graph) -expand yes -fill both - pack $var(canvas) -expand yes -fill both - - # set up zoom stack, assuming mode is zoom - global ds9 - switch $ds9(wm) { - x11 - - win32 {Blt_ZoomStack $var(graph) -mode release} - aqua {Blt_ZoomStack $var(graph) -mode release -button "ButtonPress-2"} - } + set cc $var(graph,current) + + set var(type$cc) line + set var(graph$cc) [blt::graph $var(canvas).gr$cc \ + -width 600 \ + -height 500 \ + -highlightthickness 0 \ + ] } proc PlotLineUpdateElement {varname} { |