diff options
| -rw-r--r-- | ds9/doc/release/r7.0.html | 4 | ||||
| -rw-r--r-- | ds9/library/cat.tcl | 5 | ||||
| -rw-r--r-- | ds9/library/info.tcl | 10 |
3 files changed, 14 insertions, 5 deletions
diff --git a/ds9/doc/release/r7.0.html b/ds9/doc/release/r7.0.html index 3105a3f..9cff10f 100644 --- a/ds9/doc/release/r7.0.html +++ b/ds9/doc/release/r7.0.html @@ -787,6 +787,10 @@ <li><tt>04.20.2017 GRAPH: fixed graphs for mosaic image./tt></li> <li><tt>04.20.2017 GRAPH: Added support for Sum/Avg and Thickness./tt></li> <li><tt>04.20.2017 GRAPH: In tile mode, graphs are repositioned accordingly./tt></li> + <li><tt>05.04.2017 HTTPS: is now supported./tt></li> + <li><tt>05.04.2017 CATALOG: Add GAIA DR1 to menu./tt></li> + <li><tt>05.04.2017 MOSAIC: fixed building mosaics base on WCS[A-Z]./tt></li> + <li><tt>05.04.2017 WINDOWS: new 32bit and 64bit ports are now supported./tt></li> <li><tt><b>05.01.2017 RELEASE version 7.6b1</b></tt></li> </ol> </ol> 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" } } } |