diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-05-04 17:59:57 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-05-04 17:59:57 (GMT) |
commit | 003a4df987aa6b20bc35fa5851f5b35b2b2c5721 (patch) | |
tree | 3a8b9d536d70fa14a9bf2cf534a3bc60a2f1a3e2 /ds9/library/info.tcl | |
parent | f117e29364a7df68b49397b97608fc9d847d8b48 (diff) | |
download | blt-003a4df987aa6b20bc35fa5851f5b35b2b2c5721.zip blt-003a4df987aa6b20bc35fa5851f5b35b2b2c5721.tar.gz blt-003a4df987aa6b20bc35fa5851f5b35b2b2c5721.tar.bz2 |
add GAIA, tweek infobox
Diffstat (limited to 'ds9/library/info.tcl')
-rw-r--r-- | ds9/library/info.tcl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/ds9/library/info.tcl b/ds9/library/info.tcl index 1c05fa2..41494d1 100644 --- a/ds9/library/info.tcl +++ b/ds9/library/info.tcl @@ -585,17 +585,21 @@ proc UpdateInfoBox {which x y sys} { } } } elseif {[$which has wcs celestrial wcs$ll]} { - set infobox(wcs$ll,sys) "WCS $ll" + if {$infobox(wcs$ll,sys) == {}} { + set infobox(wcs$ll,sys) "WCS $ll" + } $infobox(wcs$ll,x,nm) configure -text {l} \ -font "{$ds9(times)} $pds9(font,size) normal italic" $infobox(wcs$ll,y,nm) configure -text {b} \ -font "{$ds9(times)} $pds9(font,size) normal italic" } else { - set infobox(wcs$ll,sys) "WCS $ll" + if {$infobox(wcs$ll,sys) == {}} { + set infobox(wcs$ll,sys) "WCS $ll" + } $infobox(wcs$ll,x,nm) configure -text {x} \ -font "{$ds9(times)} $pds9(font,size) normal italic" $infobox(wcs$ll,y,nm) configure -text {y} \ - -font "{$ds9(times)} $pds9(font,size) normal italic" + -font "{$ds9(times)} $pds9(font,size) normal italic" } } } |