diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2017-03-11 21:17:59 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2017-03-11 21:17:59 (GMT) |
| commit | eef1b4e01cc3c5307188e1497e6b095081eef378 (patch) | |
| tree | b27c812b352c9024fe4a5b9dbab6f6102a581156 /ds9/library/ellipse.tcl | |
| parent | f7a9669c931c4da48dbc39d3f90b17ea2314ab9c (diff) | |
| download | blt-eef1b4e01cc3c5307188e1497e6b095081eef378.zip blt-eef1b4e01cc3c5307188e1497e6b095081eef378.tar.gz blt-eef1b4e01cc3c5307188e1497e6b095081eef378.tar.bz2 | |
add region fill
Diffstat (limited to 'ds9/library/ellipse.tcl')
| -rw-r--r-- | ds9/library/ellipse.tcl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/ds9/library/ellipse.tcl b/ds9/library/ellipse.tcl index de25b7e..4423451 100644 --- a/ds9/library/ellipse.tcl +++ b/ds9/library/ellipse.tcl @@ -21,6 +21,7 @@ proc EllipseDialog {varname} { set var(dcoord) [lindex $rr 0] set var(dformat) $pmarker(dformat) AdjustCoordSystem $varname dcoord + set var(fill) [$var(frame) get marker $var(id) ellipse fill] # procs set var(proc,apply) EllipseApply @@ -30,6 +31,11 @@ proc EllipseDialog {varname} { # base MarkerBaseCenterDialog $varname + # menu + $var(mb).color add separator + $var(mb).color add checkbutton -label [msgcat::mc {Fill}] \ + -variable ${varname}(fill) -command [list EllipseFill $varname] + # analysis $var(mb) add cascade -label [msgcat::mc {Analysis}] -menu $var(mb).analysis menu $var(mb).analysis @@ -92,6 +98,15 @@ proc EllipseApply {varname} { MarkerBaseCenterApply $varname } +# support + +proc EllipseFill {varname} { + upvar #0 $varname var + global $varname + + $var(frame) marker $var(id) ellipse fill $var(fill) +} + # callbacks proc EllipseCoordCB {varname {dummy {}}} { |