From 73c393c9089a8f0d2b12b00040e781e735bd7096 Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Fri, 26 Jul 2019 12:07:45 -0400
Subject: support multiple graphs per  plot

---
 ds9/library/plot.tcl       | 2 +-
 ds9/library/plotdialog.tcl | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl
index dbf3c82..fbf8817 100644
--- a/ds9/library/plot.tcl
+++ b/ds9/library/plot.tcl
@@ -582,7 +582,7 @@ proc PlotUpdateCanvas {varname} {
     set last [lindex $var(graphs) end]
 
     foreach cc $var(graphs) {
-	switch ($cc,type) {
+	switch $var($cc,type) {
 	    line {}
 	    bar {$var($cc,graph) configure -barmode $var(bar,mode)}
 	    scatter {}
diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl
index fa9d22f..c8d096c 100644
--- a/ds9/library/plotdialog.tcl
+++ b/ds9/library/plotdialog.tcl
@@ -224,7 +224,7 @@ proc PlotDialog {varname wtt} {
     $var(mb).graph add command -label "[msgcat::mc {Titles}]..." \
 	-command [list PlotGraphTitleDialog $varname]
     $var(mb).graph add separator
-    $var(mb).graph add cascade -label [msgcat::mc {Mode}] \
+    $var(mb).graph add cascade -label [msgcat::mc {Bar Mode}] \
 	-menu $var(mb).graph.barmode
 
     menu $var(mb).graph.select
@@ -677,17 +677,17 @@ proc PlotUpdateMenus {varname} {
 	line {
 	    $var(mb) add cascade -label [msgcat::mc {Data}] \
 		-menu $var(mb).dataline
-	    $var(mb).graph entryconfig [msgcat::mc {Mode}] -state disabled
+	    $var(mb).graph entryconfig [msgcat::mc {Bar Mode}] -state disabled
 	}
 	bar {
 	    $var(mb) add cascade -label [msgcat::mc {Data}] \
 		-menu $var(mb).databar
-	    $var(mb).graph entryconfig [msgcat::mc {Mode}] -state normal
+	    $var(mb).graph entryconfig [msgcat::mc {Bar Mode}] -state normal
 	}
 	scatter {
 	    $var(mb) add cascade -label [msgcat::mc {Data}] \
 		-menu $var(mb).datascatter
-	    $var(mb).graph entryconfig [msgcat::mc {Mode}] -state disabled
+	    $var(mb).graph entryconfig [msgcat::mc {Bar Mode}] -state disabled
 	}
     }
 
-- 
cgit v0.12