diff options
Diffstat (limited to 'ds9/library/plotbar.tcl')
| -rw-r--r-- | ds9/library/plotbar.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ds9/library/plotbar.tcl b/ds9/library/plotbar.tcl index 9dd265a..0c9619a 100644 --- a/ds9/library/plotbar.tcl +++ b/ds9/library/plotbar.tcl @@ -153,7 +153,13 @@ proc PlotDialogBar {varname} { $var(graph) yaxis configure -grid yes 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 PlotBarUpdateGraph {varname} { |