summaryrefslogtreecommitdiffstats
path: root/ds9/library/plotbar.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'ds9/library/plotbar.tcl')
-rw-r--r--ds9/library/plotbar.tcl18
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} {