diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-02-27 18:31:43 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-02-27 18:31:43 (GMT) |
commit | fe738d7120b5bf1c83e36393b866f7946a07bc50 (patch) | |
tree | 2137bf8ffc74d9b9cc9854b45574f7d167681a96 | |
parent | dba4b05e95f88e624cefa290b7a6643567b32f06 (diff) | |
download | blt-fe738d7120b5bf1c83e36393b866f7946a07bc50.zip blt-fe738d7120b5bf1c83e36393b866f7946a07bc50.tar.gz blt-fe738d7120b5bf1c83e36393b866f7946a07bc50.tar.bz2 |
tweak WCS params dialog
-rw-r--r-- | ds9/library/wcs.tcl | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/ds9/library/wcs.tcl b/ds9/library/wcs.tcl index fdb9c0e..b7ed3d5 100644 --- a/ds9/library/wcs.tcl +++ b/ds9/library/wcs.tcl @@ -208,9 +208,6 @@ proc WCSDialog {} { ttk::label $base.tdateobs -text "DATE-OBS" ttk::entry $base.dateobs -textvariable dwcs(date-obs) -width 14 - ttk::label $base.tdate -text "DATE" - ttk::entry $base.date -textvariable dwcs(date) -width 14 - ttk::label $base.tepoch -text "EPOCH" ttk::entry $base.epoch -textvariable dwcs(epoch) -width 14 @@ -489,7 +486,6 @@ proc ConfigWCSDialog {{force {0}}} { grid forget $base.tmjdobs $base.mjdobs grid forget $base.tdateobs $base.dateobs - grid forget $base.tdate $base.date grid forget $base.tepoch $base.epoch # forget current sys vars @@ -569,7 +565,6 @@ proc ConfigWCSDialog {{force {0}}} { $base.tepoch $base.epoch -padx 2 -pady 2 -sticky w grid $base.tmjdobs $base.mjdobs \ $base.tdateobs $base.dateobs \ - $base.tdate $base.date \ -padx 2 -pady 2 -sticky w grid $base.tctype1${aa} $base.ctype1${aa} \ @@ -804,7 +799,6 @@ proc WCSToVar {txt} { # clear all set dwcs(mjd-obs) {} set dwcs(date-obs) {} - set dwcs(date) {} set dwcs(epoch) {} foreach aa {{} a b c d e f g h i j k l m n o p q r s t u v w x y z} { @@ -918,6 +912,10 @@ proc WCSToVar {txt} { if {[regexp {pc0([1-9])_0([1-9])} $key dummy aa bb]} { set key pc${aa}_${bb} } + # fix for PC00x00x + if {[regexp {pc00([1-9])00([1-9])} $key dummy aa bb]} { + set key pc${aa}_${bb} + } switch [string range $key 0 6] { mjd-obs - @@ -996,9 +994,6 @@ proc WCSFromVar {} { if {$dwcs(date-obs) != {}} { append rr "DATE-OBS = '$dwcs(date-obs)'\n" } - if {$dwcs(date) != {}} { - append rr "DATE = '$dwcs(date)'\n" - } if {$dwcs(epoch) != {}} { append rr "EPOCH = $dwcs(epoch)\n" } |