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/plotscatter.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/plotscatter.tcl')
-rw-r--r-- | ds9/library/plotscatter.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ds9/library/plotscatter.tcl b/ds9/library/plotscatter.tcl index a8410d0..d634060 100644 --- a/ds9/library/plotscatter.tcl +++ b/ds9/library/plotscatter.tcl @@ -157,7 +157,13 @@ proc PlotDialogScatter {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 PlotScatterUpdateElement {varname} { |