From 6aeb5eef486ea7bf280a71fce9357a5e5ec813ac Mon Sep 17 00:00:00 2001 From: William Joye Date: Thu, 2 Aug 2018 16:11:28 -0400 Subject: clean up code --- ds9/library/info.tcl | 8 -------- 1 file changed, 8 deletions(-) diff --git a/ds9/library/info.tcl b/ds9/library/info.tcl index 17a82c5..d44686a 100644 --- a/ds9/library/info.tcl +++ b/ds9/library/info.tcl @@ -580,14 +580,6 @@ proc UpdateInfoBox {which x y sys} { -font "$ds9(times) $fsz" } } - } elseif {[$which has wcs celestial 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 { if {$infobox(wcs$ll,sys) == {}} { set infobox(wcs$ll,sys) "WCS $ll" -- cgit v0.12