diff options
Diffstat (limited to 'ds9')
-rw-r--r-- | ds9/library/catcmd.tcl | 9 | ||||
-rw-r--r-- | ds9/library/plotscatter.tcl | 4 |
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" } } } |