diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-23 20:05:47 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-23 20:05:47 (GMT) |
| commit | 7e3396be82595cd498b60f7b2e8c46387ad5df4c (patch) | |
| tree | cc64336fd66a09d3cedb8a388578a142697a728d /ds9/library/plotline.tcl | |
| parent | 50067b407fd226adcd49cd7fb4844d7c19c42260 (diff) | |
| download | blt-7e3396be82595cd498b60f7b2e8c46387ad5df4c.zip blt-7e3396be82595cd498b60f7b2e8c46387ad5df4c.tar.gz blt-7e3396be82595cd498b60f7b2e8c46387ad5df4c.tar.bz2 | |
add strip plot support
Diffstat (limited to 'ds9/library/plotline.tcl')
| -rw-r--r-- | ds9/library/plotline.tcl | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/ds9/library/plotline.tcl b/ds9/library/plotline.tcl index 633d72e..8be48ed 100644 --- a/ds9/library/plotline.tcl +++ b/ds9/library/plotline.tcl @@ -32,7 +32,7 @@ proc PlotLine {tt wtt title xaxis yaxis dim data} { PlotLineProc $varname PlotDialog $varname $wtt $title $xaxis $yaxis PlotDialogLine $varname - PlotAddPlot $varname + PlotAddGraph $varname PlotDataSet $varname $dim $data $var(proc,updategraph) $varname @@ -47,7 +47,7 @@ proc PlotLineDialog {varname wtt title xaxis yaxis} { PlotLineProc $varname PlotDialog $varname $wtt $title $xaxis $yaxis PlotDialogLine $varname - PlotAddPlot $varname + PlotAddGraph $varname } proc PlotLineProc {varname} { @@ -55,7 +55,7 @@ proc PlotLineProc {varname} { global $varname set var(proc,updategraph) PlotUpdateGraph - set var(proc,addplot) PlotLineAddPlot + set var(proc,addplot) PlotLineAddGraph set var(proc,updateelement) PlotLineUpdateElement set var(proc,highlite) PlotLineHighliteElement set var(proc,button) PlotLineButton @@ -224,27 +224,27 @@ proc PlotDialogLine {varname} { } -proc PlotLineAddPlot {varname} { +proc PlotLineAddGraph {varname} { upvar #0 $varname var global $varname set var(type) line - set var(graph) [ttk::frame $var(top).fr] - set var(plot) [blt::graph $var(graph).line \ + set var(canvas) [ttk::frame $var(top).fr] + set var(graph) [blt::graph $var(canvas).line \ -width 600 \ -height 500 \ -highlightthickness 0 \ ] - pack $var(plot) -expand yes -fill both pack $var(graph) -expand yes -fill both + pack $var(canvas) -expand yes -fill both # set up zoom stack, assuming mode is zoom global ds9 switch $ds9(wm) { x11 - - win32 {Blt_ZoomStack $var(plot) -mode release} - aqua {Blt_ZoomStack $var(plot) -mode release -button "ButtonPress-2"} + win32 {Blt_ZoomStack $var(graph) -mode release} + aqua {Blt_ZoomStack $var(graph) -mode release -button "ButtonPress-2"} } } @@ -290,7 +290,7 @@ proc PlotLineUpdateElement {varname} { set cap 0 } - $var(plot) element configure "d-${nn}" \ + $var(graph) element configure "d-${nn}" \ -label $var(name) -hide [expr !$var(show)] \ -symbol $var(shape,symbol) -fill $clr -scalesymbols no \ -pixels 5 -outline $var(shape,color) \ |