diff options
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 {}}} { |