From 24ac9f46d854edfec75630eba1eddc1943da1843 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Tue, 28 May 2019 13:31:03 -0400
Subject: add multiple plot support

---
 ds9/library/plotdialog.tcl  | 14 --------------
 ds9/library/plotprocess.tcl | 12 +++++++++++-
 2 files changed, 11 insertions(+), 15 deletions(-)

diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl
index 8694893..39811bc 100644
--- a/ds9/library/plotdialog.tcl
+++ b/ds9/library/plotdialog.tcl
@@ -506,20 +506,6 @@ proc PlotLineShapeMenu {which var} {
 	-variable $var -value arrow
 }
 
-proc PlotLineSmoothMenu {which var} {
-    menu $which
-    $which add radiobutton -label [msgcat::mc {Step}] \
-	-variable $var -value step
-    $which add radiobutton -label [msgcat::mc {Linear}] \
-	-variable $var -value linear
-    $which add radiobutton -label [msgcat::mc {Cubic}] \
-	-variable $var -value cubic
-    $which add radiobutton -label [msgcat::mc {Quadratic}] \
-	-variable $var -value quadratic
-    $which add radiobutton -label [msgcat::mc {Catrom}] \
-	-variable $var -value catrom
-}
-
 proc PlotShapeMenu {varname} {
     upvar #0 $varname var
     global $varname
diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl
index 9a9fa16..ba9044b 100644
--- a/ds9/library/plotprocess.tcl
+++ b/ds9/library/plotprocess.tcl
@@ -75,7 +75,17 @@ proc PrefsDialogPlot {} {
     ttk::label $f.smoothtitle -text [msgcat::mc {Smooth}]
     ttk::menubutton $f.smooth -textvariable pap(smooth) \
 	-menu $f.smooth.menu
-    PlotLineSmoothMenu $f.smooth.menu pap(smooth)
+    menu $f.smooth.menu
+    $f.smooth.menu add radiobutton -label [msgcat::mc {Step}] \
+	-variable pap(smooth) -value step
+    $f.smooth.menu add radiobutton -label [msgcat::mc {Linear}] \
+	-variable pap(smooth) -value linear
+    $f.smooth.menu add radiobutton -label [msgcat::mc {Cubic}] \
+	-variable pap(smooth) -value cubic
+    $f.smooth.menu add radiobutton -label [msgcat::mc {Quadratic}] \
+	-variable pap(smooth) -value quadratic
+    $f.smooth.menu add radiobutton -label [msgcat::mc {Catrom}] \
+	-variable pap(smooth) -value catrom
     grid $f.smoothtitle $f.smooth -padx 2 -pady 2 -sticky w
 
     #  Color
-- 
cgit v0.12