support multiple graphs per plot

2 files changed, 9 insertions, 4 deletions

diff --git a/ds9/library/catcmd.tcl b/ds9/library/catcmd.tcl
index a09a4a0..a3a762d 100644
--- a/ds9/library/catcmd.tcl
+++ b/ds9/library/catcmd.tcl
@@ -136,17 +136,22 @@ proc CATSelectBrowseCmd {varname ss rc} {
     }
 }
 
-proc CATSelectRows {varname src rowlist} {
+proc CATSelectRows {varname src rowlist cc} {
     upvar #0 $varname var
     global $varname
 
+    # only process from first graph
+    if {$cc != 1} {
+	return
+    }
+
     # just in case?
     set rowlist [lsort -unique $rowlist]
 
     # rows start at 1
     global debug
     if {$debug(tcl,cat)} {
-	puts stderr "CATSelectRows $varname $src $rowlist"
+	puts stderr "CATSelectRows $varname $src $rowlist $cc"
     }
 
     if {![info exists ${varname}(top)]} {
diff --git a/ds9/library/plotscatter.tcl b/ds9/library/plotscatter.tcl
index b13970e..a14203d 100644
--- a/ds9/library/plotscatter.tcl
+++ b/ds9/library/plotscatter.tcl
@@ -219,10 +219,10 @@ proc PlotScatterButton {varname cc nn xx yy} {
 	    $var($cc,graph) element deactivate $elem
 	    $var($cc,graph) element activate $elem $row
 	    # rows start at 1
-	    eval "$var(callback) [expr $row+1]"
+	    eval "$var(callback) [expr $row+1] $cc"
 	} else {
 	    $var($cc,graph) element deactivate $elem
-	    eval "$var(callback) {}"
+	    eval "$var(callback) {} $cc"
 	}
     }
 }