summaryrefslogtreecommitdiffstats
path: root/ds9
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2017-03-13 17:46:45 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2017-03-13 17:46:45 (GMT)
commit8536c60bd238b8a901a590d1dc38c5727ca39305 (patch)
treeca172169d4b0b43160b1ad566c34efacfbe7ef8b /ds9
parentadb53d5de6f34f5a84bc24a850f5e9f25a6f28b1 (diff)
downloadblt-8536c60bd238b8a901a590d1dc38c5727ca39305.zip
blt-8536c60bd238b8a901a590d1dc38c5727ca39305.tar.gz
blt-8536c60bd238b8a901a590d1dc38c5727ca39305.tar.bz2
move menus
Diffstat (limited to 'ds9')
-rw-r--r--ds9/library/box.tcl4
-rw-r--r--ds9/library/circle.tcl4
-rw-r--r--ds9/library/ellipse.tcl4
-rw-r--r--ds9/library/polygon.tcl4
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