diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-09-02 16:28:11 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-09-02 16:28:11 (GMT) |
commit | de46063debd337bdd457452cd2f3623aa6e26023 (patch) | |
tree | bda2dc8fe25051a0d37fcc27ee55d11a115c9584 /ds9 | |
parent | 14629d72dd5a712c649414ce2d7cecc95eb9f218 (diff) | |
download | blt-de46063debd337bdd457452cd2f3623aa6e26023.zip blt-de46063debd337bdd457452cd2f3623aa6e26023.tar.gz blt-de46063debd337bdd457452cd2f3623aa6e26023.tar.bz2 |
clean up code
Diffstat (limited to 'ds9')
-rw-r--r-- | ds9/library/siadialog.tcl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/ds9/library/siadialog.tcl b/ds9/library/siadialog.tcl index 3947a78..9b53a60 100644 --- a/ds9/library/siadialog.tcl +++ b/ds9/library/siadialog.tcl @@ -40,7 +40,6 @@ proc SIADialog {varname title url opts method action} { # IMG variables set var(proc,done) SIADone - set var(proc,exec) SIAVOT1 set var(proc,error) SIAError # SIA variables @@ -555,10 +554,9 @@ proc SIAServer {varname} { } if {($var(x) != {}) && ($var(y) != {}) && ($var(radius) != {})} { - ARStatus $varname [msgcat::mc {Contacting Image Server}] - eval [list $var(proc,exec) $varname] + SIAVOT1 $varname } else { - eval [list $var(proc,error) $varname [msgcat::mc {Please specify radius and either name or (ra,dec)}]] + SIAError $varname [msgcat::mc {Please specify radius and either name or (ra,dec)}] } } |