diff options
Diffstat (limited to 'ds9/library/plotscatter.tcl')
-rw-r--r-- | ds9/library/plotscatter.tcl | 28 |
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} { |