diff options
Diffstat (limited to 'ds9/library/plotprocess.tcl')
-rw-r--r-- | ds9/library/plotprocess.tcl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl index e4af856..0283af0 100644 --- a/ds9/library/plotprocess.tcl +++ b/ds9/library/plotprocess.tcl @@ -346,6 +346,20 @@ proc PlotCmdSelectData {which} { PlotCurrentData $cvarname } +# used by SAMP and CATALOG +proc PlotCmdHighliteElement {varname rowlist} { + upvar #0 $varname var + global $varname + + # rowlist starts at 1 + set result {} + foreach rr $rowlist { + append result "[expr $rr-1] " + } + + $var(proc,highlite) $varname $result +} + proc ProcessSendPlotCmd {proc id param {sock {}} {fn {}}} { global iap global parse |