summaryrefslogtreecommitdiffstats
path: root/ds9/library/plotbar.tcl
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2019-05-28 16:55:16 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2019-05-28 16:55:16 (GMT)
commitf7f0fa13d42fae20bd7197cfe7fce4db8af50bb9 (patch)
tree5e526866ffd4fccaa520c3a45b7220463c000186 /ds9/library/plotbar.tcl
parent4679ebe1a2df783577e73958c4f420a23fbfbaf3 (diff)
downloadblt-f7f0fa13d42fae20bd7197cfe7fce4db8af50bb9.zip
blt-f7f0fa13d42fae20bd7197cfe7fce4db8af50bb9.tar.gz
blt-f7f0fa13d42fae20bd7197cfe7fce4db8af50bb9.tar.bz2
add multiple plot support
Diffstat (limited to 'ds9/library/plotbar.tcl')
-rw-r--r--ds9/library/plotbar.tcl12
1 files changed, 6 insertions, 6 deletions
diff --git a/ds9/library/plotbar.tcl b/ds9/library/plotbar.tcl
index 875b1ef..62b7811 100644
--- a/ds9/library/plotbar.tcl
+++ b/ds9/library/plotbar.tcl
@@ -95,19 +95,19 @@ proc PlotBarDialog {varname wtt title xaxis yaxis} {
# Relief
menu $var(mb).data.relief
$var(mb).data.relief add radiobutton -label [msgcat::mc {Flat}] \
- -variable ${varname}(bar,relief) -value flat \
+ -variable ${varname}(graph$cc,bar,relief) -value flat \
-command [list PlotBarUpdateElement $varname]
$var(mb).data.relief add radiobutton -label [msgcat::mc {Sunken}] \
- -variable ${varname}(bar,relief) -value sunken \
+ -variable ${varname}(graph$cc,bar,relief) -value sunken \
-command [list PlotBarUpdateElement $varname]
$var(mb).data.relief add radiobutton -label [msgcat::mc {Raised}] \
- -variable ${varname}(bar,relief) -value raised \
+ -variable ${varname}(graph$cc,bar,relief) -value raised \
-command [list PlotBarUpdateElement $varname]
$var(mb).data.relief add radiobutton -label [msgcat::mc {Solid}] \
- -variable ${varname}(bar,relief) -value solid \
+ -variable ${varname}(graph$cc,bar,relief) -value solid \
-command [list PlotBarUpdateElement $varname]
$var(mb).data.relief add radiobutton -label [msgcat::mc {Groove}] \
- -variable ${varname}(bar,relief) -value groove \
+ -variable ${varname}(graph$cc,bar,relief) -value groove \
-command [list PlotBarUpdateElement $varname]
# Error
@@ -190,7 +190,7 @@ 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) \
+ -relief $var(graph$cc,bar,relief) -color $var(graph$cc,color) \
-showerrorbars $show -errorbarcolor $var(graph$cc,error,color) \
-errorbarwidth $var(graph$cc,error,width) -errorbarcap $cap
}