diff options
Diffstat (limited to 'ds9/library/util.tcl')
-rw-r--r-- | ds9/library/util.tcl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index 3c727a2..7c3a415 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -1084,9 +1084,10 @@ proc PrefsPrecision {} { global pds9 foreach ff $ds9(frames) { - $ff precision $pds9(prec,linear) \ - $pds9(prec,deg) $pds9(prec,hms) $pds9(prec,dms) \ - $pds9(prec,arcmin) $pds9(prec,arcsec) + $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) } # prefs validation command return true @@ -1345,7 +1346,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,arcmin) $pds9(prec,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)" puts $ch "$which bg color $pds9(bg)" puts $ch "$which nan color $pds9(nan)" @@ -1385,7 +1386,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,arcmin) $pds9(prec,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)\n" } proc ProcessBgCmd {varname iname} { |