diff options
Diffstat (limited to 'ds9/library')
| -rw-r--r-- | ds9/library/cat.tcl | 5 | ||||
| -rw-r--r-- | ds9/library/info.tcl | 10 |
2 files changed, 10 insertions, 5 deletions
diff --git a/ds9/library/cat.tcl b/ds9/library/cat.tcl index e3b748b..908835d 100644 --- a/ds9/library/cat.tcl +++ b/ds9/library/cat.tcl @@ -43,13 +43,14 @@ proc CATDef {} { {{DENIS} catdenis cds {B/denis}} \ {{SkyBot} catskybot skybot skybot} \ {- {Optical} opt} \ - {{ASCC-2.5} catascss cds {I/280A/ascc01}} \ {{AAVSO} cataavso cds {B/vsx}} \ + {{AC 2000.2} catac cds {I/275/ac2002}} \ + {{ASCC-2.5} catascss cds {I/280A/ascc01}} \ {{Carlsberg Meridian 14} catcmc cds {I/304}}\ + {{GAIA DR1} catgaia cds {I/337}} \ {{GSC 1.2} catgsc1 cds {I/254/out}} \ {{GSC 2.2} catgsc2 cds {I/271/out}} \ {{GSC 2.3} catgsc3 cds {I/305/out}} \ - {{AC 2000.2} catac cds {I/275/ac2002}} \ {{NOMAD} catnomad cds {I/297/out}} \ {{PPMX} catppmx cds {I/312}} \ {{SAO J2000} catsao cds {I/131A/sao}} \ 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" } } } |