diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-08-12 18:19:35 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-08-12 18:19:35 (GMT) |
commit | 2b0d1fc5f0859859e21d15732fb0847aefdd0397 (patch) | |
tree | 58042fc0d6df4a97e284b95845cc8c86b878f42b /ds9/library | |
parent | 9d9d7ab0aba73a167d37826165708c7ce3b53c72 (diff) | |
download | blt-2b0d1fc5f0859859e21d15732fb0847aefdd0397.zip blt-2b0d1fc5f0859859e21d15732fb0847aefdd0397.tar.gz blt-2b0d1fc5f0859859e21d15732fb0847aefdd0397.tar.bz2 |
update wcs precision
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/ds9.tcl | 2 | ||||
-rw-r--r-- | ds9/library/frame.tcl | 3 | ||||
-rw-r--r-- | ds9/library/prefsdialog.tcl | 11 | ||||
-rw-r--r-- | ds9/library/util.tcl | 7 |
4 files changed, 18 insertions, 5 deletions
diff --git a/ds9/library/ds9.tcl b/ds9/library/ds9.tcl index 1f8827e..1ce2f6e 100644 --- a/ds9/library/ds9.tcl +++ b/ds9/library/ds9.tcl @@ -143,6 +143,8 @@ proc DS9Def {} { set pds9(prec,len,arcmin) 5 set pds9(prec,len,arcsec) 3 + set pds9(prec,angle) 8 + set pds9(bg) white set pds9(nan) white diff --git a/ds9/library/frame.tcl b/ds9/library/frame.tcl index 5cfa6bf..e4fb46f 100644 --- a/ds9/library/frame.tcl +++ b/ds9/library/frame.tcl @@ -139,7 +139,8 @@ proc CreateNameNumberFrame {which type} { $ds9(next) precision $pds9(prec,linear) $pds9(prec,deg) \ $pds9(prec,hms) $pds9(prec,dms) \ $pds9(prec,len,linear) $pds9(prec,len,deg) \ - $pds9(prec,len,arcmin) $pds9(prec,len,arcsec) + $pds9(prec,len,arcmin) $pds9(prec,len,arcsec) \ + $pds9(prec,angle) $ds9(next) bg color $pds9(bg) $ds9(next) nan color $pds9(nan) diff --git a/ds9/library/prefsdialog.tcl b/ds9/library/prefsdialog.tcl index 2cd41be..fe2e4b1 100644 --- a/ds9/library/prefsdialog.tcl +++ b/ds9/library/prefsdialog.tcl @@ -348,7 +348,16 @@ proc PrefsDialogPrecision {} { grid $f.tarcmin $f.arcmin -padx 2 -pady 2 -sticky w grid $f.tarcsec $f.arcsec -padx 2 -pady 2 -sticky w - pack $w.precision.coord $w.precision.length \ + # Angle + set f [ttk::labelframe $w.precision.angle -text [msgcat::mc {Angles}]] + + ttk::label $f.tangle -text [msgcat::mc {Angle}] + ttk::entry $f.angle -textvariable pds9(prec,angle) \ + -validate focusout -validatecommand PrefsPrecision -width 8 + + grid $f.tangle $f.angle -padx 2 -pady 2 -sticky w + + pack $w.precision.coord $w.precision.length $w.precision.angle \ -side top -fill both -expand true } diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index 7c3a415..349aad3 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -1087,7 +1087,8 @@ proc PrefsPrecision {} { $ff precision $pds9(prec,linear) $pds9(prec,deg) \ $pds9(prec,hms) $pds9(prec,dms) \ $pds9(prec,len,linear) $pds9(prec,len,deg) \ - $pds9(prec,len,arcmin) $pds9(prec,len,arcsec) + $pds9(prec,len,arcmin) $pds9(prec,len,arcsec) \ + $pds9(prec,angle) } # prefs validation command return true @@ -1346,7 +1347,7 @@ proc FixSpec {sysname skyname formatname defsys defsky defformat} { proc DS9Backup {ch which} { global pds9 - puts $ch "$which precision $pds9(prec,linear) $pds9(prec,deg) $pds9(prec,hms) $pds9(prec,dms) $pds9(prec,len,linear) $pds9(prec,len,deg) $pds9(prec,len,arcmin) $pds9(prec,len,arcsec)" + puts $ch "$which precision $pds9(prec,linear) $pds9(prec,deg) $pds9(prec,hms) $pds9(prec,dms) $pds9(prec,len,linear) $pds9(prec,len,deg) $pds9(prec,len,arcmin) $pds9(prec,len,arcsec) $pds9(prec,angle)" puts $ch "$which bg color $pds9(bg)" puts $ch "$which nan color $pds9(nan)" @@ -1386,7 +1387,7 @@ proc ProcessPrecisionCmd {varname iname} { proc ProcessSendPrecisionCmd {proc id param {sock {}} {fn {}}} { global pds9 - $proc $id "$pds9(prec,linear) $pds9(prec,deg) $pds9(prec,hms) $pds9(prec,dms) $pds9(prec,len,linear) $pds9(prec,len,deg) $pds9(prec,len,arcmin) $pds9(prec,len,arcsec)\n" + $proc $id "$pds9(prec,linear) $pds9(prec,deg) $pds9(prec,hms) $pds9(prec,dms) $pds9(prec,len,linear) $pds9(prec,len,deg) $pds9(prec,len,arcmin) $pds9(prec,len,arcsec) $pds9(prec,angle)\n" } proc ProcessBgCmd {varname iname} { |