From 8536c60bd238b8a901a590d1dc38c5727ca39305 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Mon, 13 Mar 2017 13:46:45 -0400
Subject: move menus

---
 ds9/library/box.tcl     | 4 ++--
 ds9/library/circle.tcl  | 4 ++--
 ds9/library/ellipse.tcl | 4 ++--
 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
-- 
cgit v0.12