summaryrefslogtreecommitdiffstats
path: root/ds9/library/plotscatter.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'ds9/library/plotscatter.tcl')
-rw-r--r--ds9/library/plotscatter.tcl28
1 files changed, 14 insertions, 14 deletions
diff --git a/ds9/library/plotscatter.tcl b/ds9/library/plotscatter.tcl
index d129a63..96f34ff 100644
--- a/ds9/library/plotscatter.tcl
+++ b/ds9/library/plotscatter.tcl
@@ -102,24 +102,24 @@ proc PlotScatterUpdateElement {varname} {
PlotSaveState $varname
- if {$var(graph$cc,shape,symbol) == "none"} {
- set var(graph$cc,shape,symbol) circle
+ if {$var(graph,ds,shape,symbol) == "none"} {
+ set var(graph,ds,shape,symbol) circle
}
- if {$var(graph$cc,shape,fill)} {
- set clr $var(graph$cc,shape,color)
+ if {$var(graph,ds,shape,fill)} {
+ set clr $var(graph,ds,shape,color)
} else {
set clr {}
}
- if {$var(graph$cc,error)} {
+ if {$var(graph,ds,error)} {
set show both
} else {
set show none
}
- if {$var(graph$cc,error,cap)} {
- set cap [expr $var(graph$cc,error,width)+3]
+ if {$var(graph,ds,error,cap)} {
+ set cap [expr $var(graph,ds,error,width)+3]
} else {
set cap 0
}
@@ -127,17 +127,17 @@ proc PlotScatterUpdateElement {varname} {
set nn $var(graph$cc,data,current)
$var(graph$cc) element configure "d-${nn}" \
-label $var(graph,ds,name) -hide [expr !$var(graph,ds,show)] \
- -symbol $var(graph$cc,shape,symbol) -fill $clr -scalesymbols no \
- -outline $var(graph$cc,shape,color) \
+ -symbol $var(graph,ds,shape,symbol) -fill $clr -scalesymbols no \
+ -outline $var(graph,ds,shape,color) \
-linewidth 0 -pixels 5 \
- -showerrorbars $show -errorbarcolor $var(graph$cc,error,color) \
- -errorbarwidth $var(graph$cc,error,width) -errorbarcap $cap
+ -showerrorbars $show -errorbarcolor $var(graph,ds,error,color) \
+ -errorbarwidth $var(graph,ds,error,width) -errorbarcap $cap
$var(graph$cc) pen configure active -color blue \
- -symbol $var(graph$cc,shape,symbol) \
+ -symbol $var(graph,ds,shape,symbol) \
-linewidth 0 -pixels 5 \
- -showerrorbars $show -errorbarcolor $var(graph$cc,error,color) \
- -errorbarwidth $var(graph$cc,error,width) -errorbarcap $cap
+ -showerrorbars $show -errorbarcolor $var(graph,ds,error,color) \
+ -errorbarwidth $var(graph,ds,error,width) -errorbarcap $cap
}
proc PlotScatterButton {varname x y} {