From cdb0395c318af057350a1f9999c2d74d309d26bf Mon Sep 17 00:00:00 2001
From: William Joye <wjoye@cfa.harvard.edu>
Date: Thu, 23 May 2019 16:37:47 -0400
Subject: add strip plot support

---
 ds9/library/plot.tcl        | 12 ++++++------
 ds9/library/plotbar.tcl     |  2 +-
 ds9/library/plotdialog.tcl  |  2 +-
 ds9/library/plotline.tcl    |  2 +-
 ds9/library/plotscatter.tcl |  2 +-
 5 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl
index ae5cab5..6e5a875 100644
--- a/ds9/library/plot.tcl
+++ b/ds9/library/plot.tcl
@@ -94,13 +94,13 @@ proc PlotAddGraph {varname} {
 
     set cc $var(graph,current)
 
-    set var(graph,$cc,data,total) 0
-    set var(graph,$cc,data,current) 0
+    set var(graph$cc,data,total) 0
+    set var(graph$cc,data,current) 0
 
-    set var(data,total) $var(graph,$cc,data,total)
-    set var(data,current) $var(graph,$cc,data,current)
+    set var(data,total) $var(graph$cc,data,total)
+    set var(data,current) $var(graph$cc,data,current)
 
-    $var(proc,addplot) $varname
+    $var(proc,addgraph) $varname
 }
 
 proc PlotAxisFormat {varname axis w nn} {
@@ -128,7 +128,7 @@ proc PlotChangeMode {varname} {
     }
 }
 
-proc PlotClearData {varname} {
+proc PlotDeleteData {varname} {
     upvar #0 $varname var
     global $varname
 
diff --git a/ds9/library/plotbar.tcl b/ds9/library/plotbar.tcl
index 0548180..2648147 100644
--- a/ds9/library/plotbar.tcl
+++ b/ds9/library/plotbar.tcl
@@ -54,7 +54,7 @@ proc PlotBarProc {varname} {
     upvar #0 $varname var
     global $varname
 
-    set var(proc,addplot) PlotBarAddGraph
+    set var(proc,addgraph) PlotBarAddGraph
     set var(proc,updategraph) PlotBarUpdateGraph
     set var(proc,updateelement) PlotBarUpdateElement
     set var(proc,highlite) PlotBarHighliteElement
diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl
index c7e0c09..3c0fce7 100644
--- a/ds9/library/plotdialog.tcl
+++ b/ds9/library/plotdialog.tcl
@@ -56,7 +56,7 @@ proc PlotDialog {varname wtt title xaxis yaxis} {
     $var(mb).file add command -label "[msgcat::mc {Save Data}]..." \
 	-command [list PlotSaveData $varname]
     $var(mb).file add command -label [msgcat::mc {Clear Data}] \
-	-command [list PlotClearData $varname]
+	-command [list PlotDeleteData $varname]
     $var(mb).file add command -label [msgcat::mc {Duplicate Data}] \
 	-command [list PlotDupData $varname 1]
     $var(mb).file add separator
diff --git a/ds9/library/plotline.tcl b/ds9/library/plotline.tcl
index 8be48ed..42f8b0f 100644
--- a/ds9/library/plotline.tcl
+++ b/ds9/library/plotline.tcl
@@ -54,8 +54,8 @@ proc PlotLineProc {varname} {
     upvar #0 $varname var
     global $varname
 
+    set var(proc,addgraph) PlotLineAddGraph
     set var(proc,updategraph) PlotUpdateGraph
-    set var(proc,addplot) PlotLineAddGraph
     set var(proc,updateelement) PlotLineUpdateElement
     set var(proc,highlite) PlotLineHighliteElement
     set var(proc,button) PlotLineButton
diff --git a/ds9/library/plotscatter.tcl b/ds9/library/plotscatter.tcl
index c7ccd3c..a4d4678 100644
--- a/ds9/library/plotscatter.tcl
+++ b/ds9/library/plotscatter.tcl
@@ -54,7 +54,7 @@ proc PlotScatterProc {varname} {
     upvar #0 $varname var
     global $varname
 
-    set var(proc,addplot) PlotScatterAddGraph
+    set var(proc,addgraph) PlotScatterAddGraph
     set var(proc,updategraph) PlotUpdateGraph
     set var(proc,updateelement) PlotScatterUpdateElement
     set var(proc,highlite) PlotScatterHighliteElement
-- 
cgit v0.12