diff options
Diffstat (limited to 'ds9/library')
| -rw-r--r-- | ds9/library/box.tcl | 4 | ||||
| -rw-r--r-- | ds9/library/circle.tcl | 4 | ||||
| -rw-r--r-- | ds9/library/ellipse.tcl | 4 | ||||
| -rw-r--r-- | ds9/library/polygon.tcl | 4 |
4 files changed, 8 insertions, 8 deletions
diff --git a/ds9/library/box.tcl b/ds9/library/box.tcl index 0164191..bcec051 100644 --- a/ds9/library/box.tcl +++ b/ds9/library/box.tcl @@ -32,8 +32,8 @@ proc BoxDialog {varname} { MarkerBaseCenterDialog $varname # menu - $var(mb).color add separator - $var(mb).color add checkbutton -label [msgcat::mc {Fill}] \ + $var(mb).width add separator + $var(mb).width add checkbutton -label [msgcat::mc {Fill}] \ -variable ${varname}(fill) -command [list BoxFill $varname] # analysis diff --git a/ds9/library/circle.tcl b/ds9/library/circle.tcl index 90e1f1c..ea7dee1 100644 --- a/ds9/library/circle.tcl +++ b/ds9/library/circle.tcl @@ -32,8 +32,8 @@ proc CircleDialog {varname} { MarkerBaseCenterDialog $varname # menu - $var(mb).color add separator - $var(mb).color add checkbutton -label [msgcat::mc {Fill}] \ + $var(mb).width add separator + $var(mb).width add checkbutton -label [msgcat::mc {Fill}] \ -variable ${varname}(fill) -command [list CircleFill $varname] # analysis diff --git a/ds9/library/ellipse.tcl b/ds9/library/ellipse.tcl index 4423451..65bc961 100644 --- a/ds9/library/ellipse.tcl +++ b/ds9/library/ellipse.tcl @@ -32,8 +32,8 @@ proc EllipseDialog {varname} { MarkerBaseCenterDialog $varname # menu - $var(mb).color add separator - $var(mb).color add checkbutton -label [msgcat::mc {Fill}] \ + $var(mb).width add separator + $var(mb).width add checkbutton -label [msgcat::mc {Fill}] \ -variable ${varname}(fill) -command [list EllipseFill $varname] # analysis diff --git a/ds9/library/polygon.tcl b/ds9/library/polygon.tcl index 25e205b..e9c5c5b 100644 --- a/ds9/library/polygon.tcl +++ b/ds9/library/polygon.tcl @@ -26,8 +26,8 @@ proc PolygonDialog {varname} { MarkerBaseCenterDialog $varname # menu - $var(mb).color add separator - $var(mb).color add checkbutton -label [msgcat::mc {Fill}] \ + $var(mb).width add separator + $var(mb).width add checkbutton -label [msgcat::mc {Fill}] \ -variable ${varname}(fill) -command [list PolygonFill $varname] # analysis |