diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-08-07 20:08:18 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-08-07 20:08:18 (GMT) |
commit | 4363a0bde2b18cd0391aabaeb925b434b858d18e (patch) | |
tree | 778ac7593b5e4b074f545df438513a440b597019 /ds9/library/ruler.tcl | |
parent | 2dd23db7bd3901b523e01ca5e30693cbab0c9752 (diff) | |
download | blt-4363a0bde2b18cd0391aabaeb925b434b858d18e.zip blt-4363a0bde2b18cd0391aabaeb925b434b858d18e.tar.gz blt-4363a0bde2b18cd0391aabaeb925b434b858d18e.tar.bz2 |
ruler format spec
Diffstat (limited to 'ds9/library/ruler.tcl')
-rw-r--r-- | ds9/library/ruler.tcl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ds9/library/ruler.tcl b/ds9/library/ruler.tcl index ad4b9e9..5e4723a 100644 --- a/ds9/library/ruler.tcl +++ b/ds9/library/ruler.tcl @@ -21,6 +21,7 @@ proc RulerDialog {varname} { set var(skyformat) degrees set var(dcoord) [lindex $s 2] set var(dformat) [lindex $s 3] + set var(spec) [$var(frame) get marker $var(id) ruler format] # procs set var(which) ruler @@ -40,7 +41,11 @@ proc RulerDialog {varname} { ttk::label $f.ry -textvariable ${varname}(disty) -relief groove -width 12 ttk::label $f.ulen -textvariable ${varname}(dcoord,msg) + ttk::label $f.tspec -text [msgcat::mc {Format}] + ttk::entry $f.spec -textvariable ${varname}(spec) -width 13 + grid $f.tlen $f.rx $f.ry $f.ulen -padx 2 -pady 2 -sticky w + grid $f.tspec $f.spec -padx 2 -pady 2 -sticky w } # actions @@ -52,6 +57,8 @@ proc RulerApply {varname} { $var(frame) marker $var(id) ruler point $var(system) $var(sky) \ $var(x) $var(y) $var(x2) $var(y2) + $var(frame) marker $var(id) ruler format "\"$var(spec)\"" + MarkerBaseLineApply $varname } |