diff options
Diffstat (limited to 'ds9/library/plotbar.tcl')
| -rw-r--r-- | ds9/library/plotbar.tcl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/ds9/library/plotbar.tcl b/ds9/library/plotbar.tcl index c42c18d..875b1ef 100644 --- a/ds9/library/plotbar.tcl +++ b/ds9/library/plotbar.tcl @@ -113,10 +113,10 @@ proc PlotBarDialog {varname wtt title xaxis yaxis} { # Error menu $var(mb).data.error $var(mb).data.error add checkbutton -label [msgcat::mc {Show}] \ - -variable ${varname}(error) \ + -variable ${varname}(graph$cc,error) \ -command [list PlotBarUpdateElement $varname] $var(mb).data.error add checkbutton -label [msgcat::mc {Cap}] \ - -variable ${varname}(error,cap) \ + -variable ${varname}(graph$cc,error,cap) \ -command [list PlotBarUpdateElement $varname] $var(mb).data.error add separator $var(mb).data.error add cascade -label [msgcat::mc {Color}] \ @@ -124,9 +124,9 @@ proc PlotBarDialog {varname wtt title xaxis yaxis} { $var(mb).data.error add cascade -label [msgcat::mc {Width}] \ -menu $var(mb).data.error.width - PlotColorMenu $var(mb).data.error.color $varname error,color \ + PlotColorMenu $var(mb).data.error.color $varname graph$cc,error,color \ [list PlotBarUpdateElement $varname] - WidthDashMenu $var(mb).data.error.width $varname error,width {} \ + WidthDashMenu $var(mb).data.error.width $varname graph$cc,error,width {} \ [list PlotBarUpdateElement $varname] {} } @@ -176,14 +176,14 @@ proc PlotBarUpdateElement {varname} { set nn $var(graph$cc,data,current) PlotGetVar $varname $nn - if {$var(error)} { + if {$var(graph$cc,error)} { set show both } else { set show none } - if {$var(error,cap)} { - set cap [expr $var(error,width)+3] + if {$var(graph$cc,error,cap)} { + set cap [expr $var(graph$cc,error,width)+3] } else { set cap 0 } @@ -191,8 +191,8 @@ proc PlotBarUpdateElement {varname} { $var(graph$cc) element configure "d-${nn}" \ -label $var(graph$cc,name) -hide [expr !$var(graph$cc,show)] \ -relief $var(bar,relief) -color $var(graph$cc,color) \ - -showerrorbars $show -errorbarcolor $var(error,color) \ - -errorbarwidth $var(error,width) -errorbarcap $cap + -showerrorbars $show -errorbarcolor $var(graph$cc,error,color) \ + -errorbarwidth $var(graph$cc,error,width) -errorbarcap $cap } proc PlotBarButton {varname x y} { |