From 003a4df987aa6b20bc35fa5851f5b35b2b2c5721 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Thu, 4 May 2017 13:59:57 -0400
Subject: add GAIA, tweek infobox

---
 ds9/doc/release/r7.0.html |  4 ++++
 ds9/library/cat.tcl       |  5 +++--
 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"
 	    }
 	}
     }
-- 
cgit v0.12