diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-28 16:55:16 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-28 16:55:16 (GMT) |
commit | f7f0fa13d42fae20bd7197cfe7fce4db8af50bb9 (patch) | |
tree | 5e526866ffd4fccaa520c3a45b7220463c000186 /ds9/library/plotbar.tcl | |
parent | 4679ebe1a2df783577e73958c4f420a23fbfbaf3 (diff) | |
download | blt-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.tcl | 12 |
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 } |