diff options
Diffstat (limited to 'ds9/library/plotscatter.tcl')
-rw-r--r-- | ds9/library/plotscatter.tcl | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/ds9/library/plotscatter.tcl b/ds9/library/plotscatter.tcl index f5b7c0c..1c66bb5 100644 --- a/ds9/library/plotscatter.tcl +++ b/ds9/library/plotscatter.tcl @@ -148,21 +148,21 @@ proc PlotDialogScatter {varname} { # graph set var(type) scatter - set var(frame) [ttk::frame $var(top).fr] - set var(graph) [blt::graph $var(frame).scatter \ + set var(graph) [ttk::frame $var(top).fr] + set var(plot) [blt::graph $var(graph).scatter \ -width 600 \ -height 500 \ -highlightthickness 0 \ ] + pack $var(plot) -expand yes -fill both pack $var(graph) -expand yes -fill both - pack $var(frame) -expand yes -fill both # set up zoom stack, assuming mode is zoom switch $ds9(wm) { x11 - - win32 {Blt_ZoomStack $var(graph) -mode release} - aqua {Blt_ZoomStack $var(graph) -mode release -button "ButtonPress-2"} + win32 {Blt_ZoomStack $var(plot) -mode release} + aqua {Blt_ZoomStack $var(plot) -mode release -button "ButtonPress-2"} } } @@ -200,7 +200,7 @@ proc PlotScatterUpdateElement {varname} { set cap 0 } - $var(graph) element configure "d-${nn}" \ + $var(plot) element configure "d-${nn}" \ -label $var(name) -hide [expr !$var(show)] \ -symbol $var(shape,symbol) -fill $clr -scalesymbols no \ -outline $var(shape,color) \ @@ -208,7 +208,7 @@ proc PlotScatterUpdateElement {varname} { -showerrorbars $show -errorbarcolor $var(error,color) \ -errorbarwidth $var(error,width) -errorbarcap $cap - $var(graph) pen configure active -color blue \ + $var(plot) pen configure active -color blue \ -symbol $var(shape,symbol) \ -linewidth 0 -pixels 5 \ -showerrorbars $show -errorbarcolor $var(error,color) \ @@ -227,18 +227,18 @@ proc PlotScatterButton {varname x y} { return } - set rr [$var(graph) element closest $x $y] + set rr [$var(plot) element closest $x $y] set elem [lindex $rr 1] set row [lindex $rr 3] if {$elem != {}} { if {$row != {}} { - $var(graph) element deactivate $elem - $var(graph) element activate $elem $row + $var(plot) element deactivate $elem + $var(plot) element activate $elem $row # rows start at 1 eval "$var(callback) [expr $row+1]" } else { - $var(graph) element deactivate $elem + $var(plot) element deactivate $elem eval "$var(callback) {}" } } @@ -253,10 +253,10 @@ proc PlotScatterHighliteElement {varname rowlist} { } if {$var(show)} { - $var(graph) element deactivate d-1 + $var(plot) element deactivate d-1 if {$rowlist != {}} { # can have multiple rows - eval "$var(graph) element activate d-1 $rowlist" + eval "$var(plot) element activate d-1 $rowlist" } } } |