diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-08-06 19:27:40 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-08-06 19:27:40 (GMT) |
| commit | 032e8e38ab6eafaa7534359860fb012f2cf969ca (patch) | |
| tree | 3c175263aba40fcf98b14071ba5e1cea647d1ca3 /ds9 | |
| parent | 0d69794b911194aa91416252cd4687f38e75bbd6 (diff) | |
| download | blt-032e8e38ab6eafaa7534359860fb012f2cf969ca.zip blt-032e8e38ab6eafaa7534359860fb012f2cf969ca.tar.gz blt-032e8e38ab6eafaa7534359860fb012f2cf969ca.tar.bz2 | |
clean up code
Diffstat (limited to 'ds9')
| -rw-r--r-- | ds9/library/panner.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ds9/library/panner.tcl b/ds9/library/panner.tcl index 9e48a2a..fe6d6bb 100644 --- a/ds9/library/panner.tcl +++ b/ds9/library/panner.tcl @@ -201,6 +201,8 @@ proc Motion1Panner {x y} { panner pan motion $x $y if {$current(frame) != {}} { + $current(frame) pan bbox [panner get bbox] + UpdateColormapLevelMosaic $current(frame) $x $y panner UpdateInfoBox $current(frame) $x $y panner UpdatePixelTableDialog $current(frame) $x $y panner @@ -216,8 +218,8 @@ proc Release1Panner {x y} { puts stderr "Release1Panner" } + panner pan end $x $y if {$current(frame) != {}} { - panner pan end $x $y $current(frame) pan bbox [panner get bbox] UpdateColormapLevelMosaic $current(frame) $x $y panner |