summaryrefslogtreecommitdiffstats
path: root/ds9/library/plotscatter.tcl
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2019-07-24 19:01:23 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2019-07-24 19:01:23 (GMT)
commite0f04caa468725ca39c4f4fe78c6d1daa1c83c63 (patch)
tree9e110c189d3d3a9e100ecc9f7db81327f5e3c642 /ds9/library/plotscatter.tcl
parent3347e9948d4fbb3c178f35608360db3b555b1e20 (diff)
downloadblt-e0f04caa468725ca39c4f4fe78c6d1daa1c83c63.zip
blt-e0f04caa468725ca39c4f4fe78c6d1daa1c83c63.tar.gz
blt-e0f04caa468725ca39c4f4fe78c6d1daa1c83c63.tar.bz2
support multiple graphs per plot
Diffstat (limited to 'ds9/library/plotscatter.tcl')
-rw-r--r--ds9/library/plotscatter.tcl4
1 files changed, 2 insertions, 2 deletions
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"
}
}
}