diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-07-22 19:07:33 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-07-22 19:07:33 (GMT) |
commit | 4b9f920960a1ea2ef35eabdf05d5d0e934c572df (patch) | |
tree | f76d7f6ccf8dba8821f92ac6ca84ac8f5297fefc /ds9/library/catplot.tcl | |
parent | dedcb860ee7ce12f5061b5bd5bda054b22ed75f3 (diff) | |
download | blt-4b9f920960a1ea2ef35eabdf05d5d0e934c572df.zip blt-4b9f920960a1ea2ef35eabdf05d5d0e934c572df.tar.gz blt-4b9f920960a1ea2ef35eabdf05d5d0e934c572df.tar.bz2 |
support multiple graphs per plot
Diffstat (limited to 'ds9/library/catplot.tcl')
-rw-r--r-- | ds9/library/catplot.tcl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/ds9/library/catplot.tcl b/ds9/library/catplot.tcl index ade9f34..c42d29b 100644 --- a/ds9/library/catplot.tcl +++ b/ds9/library/catplot.tcl @@ -218,3 +218,24 @@ proc CATPlotDialogColsMenu {varname f ww} { } } } + +# used by CATALOG +proc CATPlotHighliteElement {varname rowlist} { + upvar #0 $varname var + global $varname + + set vvarname $var(plot,var) + upvar #0 $vvarname vvar + global $vvarname + + # rowlist starts at 1 + set result {} + foreach rr $rowlist { + append result "[expr $rr-1] " + } + + if {[info exists vvar(1,graph)]} { + $vvar(1,proc,highlite) $vvarname 1 1 $result + } +} + |