diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-07-11 18:25:36 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-07-11 18:25:36 (GMT) |
| commit | e762abb602e3b3e6a2c8b72346b20b98f44569b4 (patch) | |
| tree | ce2c3180b953372632fe6cf1187f6f6704cda071 /ds9/library/plotbar.tcl | |
| parent | aa55a04e564c14ac4ce941458a5b166ef7722795 (diff) | |
| download | blt-e762abb602e3b3e6a2c8b72346b20b98f44569b4.zip blt-e762abb602e3b3e6a2c8b72346b20b98f44569b4.tar.gz blt-e762abb602e3b3e6a2c8b72346b20b98f44569b4.tar.bz2 | |
fix plot pointer/zoom mode
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} { |