diff options
Diffstat (limited to 'ds9/library/plotline.tcl')
-rw-r--r-- | ds9/library/plotline.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ds9/library/plotline.tcl b/ds9/library/plotline.tcl index c8104ee..773ea6a 100644 --- a/ds9/library/plotline.tcl +++ b/ds9/library/plotline.tcl @@ -213,7 +213,13 @@ proc PlotDialogLine {varname} { ] pack $var(graph) -expand yes -fill both - PlotChangeMode $varname + + # set up zoom stack, assuming mode is zoom + switch $ds9(wm) { + x11 - + win32 {Blt_ZoomStack $var(graph) -mode release} + aqua {Blt_ZoomStack $var(graph) -mode release -button "ButtonPress-2"} + } } proc PlotLineUpdateElement {varname} { |