summaryrefslogtreecommitdiffstats
path: root/ds9/library/siadialog.tcl
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2018-07-24 21:25:56 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2018-07-24 21:25:56 (GMT)
commit2f7d0607458b962e7ffe8054f3e3e6b4da01744a (patch)
tree1dbf4b50a3aa9690d2629d8634de0e65c2d22d6a /ds9/library/siadialog.tcl
parent5f7153b8b5e1db87dfcf19afc211ac2a4c43fa8d (diff)
downloadblt-2f7d0607458b962e7ffe8054f3e3e6b4da01744a.zip
blt-2f7d0607458b962e7ffe8054f3e3e6b4da01744a.tar.gz
blt-2f7d0607458b962e7ffe8054f3e3e6b4da01744a.tar.bz2
simplify has wcs command
Diffstat (limited to 'ds9/library/siadialog.tcl')
-rw-r--r--ds9/library/siadialog.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/ds9/library/siadialog.tcl b/ds9/library/siadialog.tcl
index 0571ae4..51ae927 100644
--- a/ds9/library/siadialog.tcl
+++ b/ds9/library/siadialog.tcl
@@ -493,7 +493,7 @@ proc SIAUpdate {varname} {
if {[winfo exists $var(top)]} {
set var(name) {}
if {$current(frame) != {} } {
- if {[$current(frame) has wcs equatorial $wcs(system)]} {
+ if {[$current(frame) has wcs celestial $wcs(system)]} {
set coord [$current(frame) get fits center \
$wcs(system) $var(sky) $var(skyformat)]
set var(x) [lindex $coord 0]
@@ -530,7 +530,7 @@ proc SIACrosshair {varname} {
if {[winfo exists $var(top)]} {
set var(name) {}
if {$current(frame) != {} } {
- if {[$current(frame) has wcs equatorial $wcs(system)]} {
+ if {[$current(frame) has wcs celestial $wcs(system)]} {
set coord [$current(frame) get crosshair \
$wcs(system) $var(sky) $var(skyformat)]
set var(x) [lindex $coord 0]