diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-08-28 20:23:01 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-08-28 20:23:01 (GMT) |
commit | f0abc1419ded2eda58c8fcad6d9e60536d35c743 (patch) | |
tree | 1e91fd9302feebb2402182c9240fe56ddd7b2aa5 /tksao | |
parent | 0ae906abc35c3c8616800f3cd2ef2ac280459e40 (diff) | |
download | blt-f0abc1419ded2eda58c8fcad6d9e60536d35c743.zip blt-f0abc1419ded2eda58c8fcad6d9e60536d35c743.tar.gz blt-f0abc1419ded2eda58c8fcad6d9e60536d35c743.tar.bz2 |
fix issues with HPX
Diffstat (limited to 'tksao')
-rw-r--r-- | tksao/frame/frame3dbase.C | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tksao/frame/frame3dbase.C b/tksao/frame/frame3dbase.C index afc6df5..aa2ae05 100644 --- a/tksao/frame/frame3dbase.C +++ b/tksao/frame/frame3dbase.C @@ -184,8 +184,12 @@ void Frame3dBase::getInfoWCS(char* var, Vector3d& rr, FitsImage* sptr) char* system = (char*)sptr->getWCSSystem(www); char* domain = (char*)sptr->getWCSDomain(www); - if (system) - Tcl_SetVar2(interp,var,varcat(buf,(char*)"wcs",ww,(char*)",sys"),system,0); + if (system) { + if (!strncmp(system,"Unknown",7)) + Tcl_SetVar2(interp,var,varcat(buf,(char*)"wcs",ww,(char*)",sys"),"WCS",0); + else + Tcl_SetVar2(interp,var,varcat(buf,(char*)"wcs",ww,(char*)",sys"),system,0); + } else if (domain) Tcl_SetVar2(interp,var,varcat(buf,(char*)"wcs",ww,(char*)",sys"),domain,0); else |