diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-07-24 21:25:56 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-07-24 21:25:56 (GMT) |
commit | 2f7d0607458b962e7ffe8054f3e3e6b4da01744a (patch) | |
tree | 1dbf4b50a3aa9690d2629d8634de0e65c2d22d6a /ds9/library/siadialog.tcl | |
parent | 5f7153b8b5e1db87dfcf19afc211ac2a4c43fa8d (diff) | |
download | blt-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.tcl | 4 |
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] |