diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-06-04 20:11:50 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-06-04 20:11:50 (GMT) |
| commit | 66cab23c3c5e896c429702901481517079b925e5 (patch) | |
| tree | c38b25a86531b79dd56a714d93609ff8086e7cfe /ds9/library | |
| parent | 3a8ec573a50533e73202e06d4161927c6d428bbe (diff) | |
| download | blt-66cab23c3c5e896c429702901481517079b925e5.zip blt-66cab23c3c5e896c429702901481517079b925e5.tar.gz blt-66cab23c3c5e896c429702901481517079b925e5.tar.bz2 | |
COLORBAR: fixed a number of issues with updating the screen with color tags active
Diffstat (limited to 'ds9/library')
| -rw-r--r-- | ds9/library/colorbar.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/ds9/library/colorbar.tcl b/ds9/library/colorbar.tcl index f774e63..f3a657f 100644 --- a/ds9/library/colorbar.tcl +++ b/ds9/library/colorbar.tcl @@ -288,6 +288,7 @@ proc ColorbarKey {K A xx yy} { $current(colorbar) tag delete $xx $yy if {$current(frame) != {}} { $current(frame) colormap [$current(colorbar) get colormap] + $current(frame) colorbar tag "\{[$current(colorbar) get tag]\}" } } } @@ -358,6 +359,7 @@ proc ColorbarMotion1 {x y} { $current(colorbar) tag edit motion $x $y if {$current(frame) != {}} { $current(frame) colormap [$current(colorbar) get colormap] + $current(frame) colorbar tag "\{[$current(colorbar) get tag]\}" } } } @@ -390,6 +392,7 @@ proc ColorbarRelease1 {x y} { $current(colorbar) tag edit end $x $y if {$current(frame) != {}} { $current(frame) colormap [$current(colorbar) get colormap] + $current(frame) colorbar tag "\{[$current(colorbar) get tag]\}" } } } @@ -671,9 +674,12 @@ proc LoadColorTag {fn} { global current if {$fn != {}} { + # yes, we need this + UpdateColormapLevel $current(colorbar) tag load "\{$fn\}" if {$current(frame) != {}} { $current(frame) colormap [$current(colorbar) get colormap] + $current(frame) colorbar tag "\{[$current(colorbar) get tag]\}" } } } @@ -693,6 +699,7 @@ proc DeleteColorTag {} { $current(colorbar) tag delete if {$current(frame) != {}} { $current(frame) colormap [$current(colorbar) get colormap] + $current(frame) colorbar tag "\{[$current(colorbar) get tag]\}" } } @@ -750,6 +757,7 @@ proc ColorTagDialog {x y} { $current(colorbar) tag $ed2(id) $ed2(start) $ed2(stop) $ed2(color) if {$current(frame) != {}} { $current(frame) colormap [$current(colorbar) get colormap] + $current(frame) colorbar tag "\{[$current(colorbar) get tag]\}" } } |