diff options
Diffstat (limited to 'ds9/library/catcmd.tcl')
| -rw-r--r-- | ds9/library/catcmd.tcl | 9 |
1 files changed, 7 insertions, 2 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)]} { |