summaryrefslogtreecommitdiffstats
path: root/ds9
diff options
context:
space:
mode:
Diffstat (limited to 'ds9')
-rw-r--r--ds9/doc/release/r8.1.html1
-rw-r--r--ds9/library/colorbar.tcl8
2 files changed, 9 insertions, 0 deletions
diff --git a/ds9/doc/release/r8.1.html b/ds9/doc/release/r8.1.html
index 4dd67ac..b58b6b8 100644
--- a/ds9/doc/release/r8.1.html
+++ b/ds9/doc/release/r8.1.html
@@ -80,6 +80,7 @@
<li><tt>05.13.2019 OPENSSL: DS9 now links against its own version of openssl and no longer is dependent upon system libs.</tt></li>
<li><tt><b>05.15.2019 RELEASE version 8.1b1</b></tt></li>
<li><tt>05.28.2019 URL: more tolerant of mime types when downloading via http.</tt></li>
+<li><tt>06.04.2019 COLORBAR: fixed a number of issues with updating the screen with color tags active.</tt></li>
<li><tt><b>xx.xx.2019 RELEASE version 8.1b2</b></tt></li>
</ol>
</div>
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]\}"
}
}