diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-28 15:30:39 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-28 15:30:39 (GMT) |
commit | 6e111475be533c11d75c353f1c8b9be14a611283 (patch) | |
tree | 66b5778b1d0ccddd6b75266be0ee1da5914d4234 /ds9/library/plotscatter.tcl | |
parent | 826894f82a50885a2666762ace148eb3bc950ace (diff) | |
download | blt-6e111475be533c11d75c353f1c8b9be14a611283.zip blt-6e111475be533c11d75c353f1c8b9be14a611283.tar.gz blt-6e111475be533c11d75c353f1c8b9be14a611283.tar.bz2 |
add multiple plot support
Diffstat (limited to 'ds9/library/plotscatter.tcl')
-rw-r--r-- | ds9/library/plotscatter.tcl | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/ds9/library/plotscatter.tcl b/ds9/library/plotscatter.tcl index a7dbaf4..d949f5b 100644 --- a/ds9/library/plotscatter.tcl +++ b/ds9/library/plotscatter.tcl @@ -120,10 +120,10 @@ proc PlotScatterDialog {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 PlotScatterUpdateElement $varname] $var(mb).data.error add checkbutton -label [msgcat::mc {Cap}] \ - -variable ${varname}(error,cap) \ + -variable ${varname}(graph$cc,error,cap) \ -command [list PlotScatterUpdateElement $varname] $var(mb).data.error add separator $var(mb).data.error add cascade -label [msgcat::mc {Color}] \ @@ -131,9 +131,9 @@ proc PlotScatterDialog {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 PlotScatterUpdateElement $varname] - WidthDashMenu $var(mb).data.error.width $varname error,width {} \ + WidthDashMenu $var(mb).data.error.width $varname graph$cc,error,width {} \ [list PlotScatterUpdateElement $varname] {} } @@ -176,14 +176,14 @@ proc PlotScatterUpdateElement {varname} { set clr {} } - 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 } @@ -193,14 +193,14 @@ proc PlotScatterUpdateElement {varname} { -symbol $var(graph$cc,shape,symbol) -fill $clr -scalesymbols no \ -outline $var(graph$cc,shape,color) \ -linewidth 0 -pixels 5 \ - -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 $var(graph$cc) pen configure active -color blue \ -symbol $var(graph$cc,shape,symbol) \ -linewidth 0 -pixels 5 \ - -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 PlotScatterButton {varname x y} { |