diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-24 21:21:36 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-24 21:21:36 (GMT) |
| commit | d180078a75bf8d0b3090d564dbdb48d79ba43947 (patch) | |
| tree | 20e6921486c1eb0b8e87276cfe4785cd76101568 /ds9/library/plotprocess.tcl | |
| parent | ecfba834a6bbe38a4994f364c805f8305e1b7c5f (diff) | |
| download | blt-d180078a75bf8d0b3090d564dbdb48d79ba43947.zip blt-d180078a75bf8d0b3090d564dbdb48d79ba43947.tar.gz blt-d180078a75bf8d0b3090d564dbdb48d79ba43947.tar.bz2 | |
add strip plot support
Diffstat (limited to 'ds9/library/plotprocess.tcl')
| -rw-r--r-- | ds9/library/plotprocess.tcl | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl index a1490a2..738d083 100644 --- a/ds9/library/plotprocess.tcl +++ b/ds9/library/plotprocess.tcl @@ -54,7 +54,7 @@ proc PrefsDialogPlot {} { grid $f.tnumlab $f.numlab -padx 2 -pady 2 -sticky w # Data - set f [ttk::labelframe $w.plot.data -text [msgcat::mc {Data Set}]] + set f [ttk::labelframe $w.plot.data -text [msgcat::mc {Dataset}]] # Show ttk::checkbutton $f.show -text [msgcat::mc {Show}] -variable pap(show) @@ -316,6 +316,18 @@ proc PlotCmdExport {format fn} { PlotExport $cvarname $fn $format } +proc PlotCmdSelectData {which} { + global cvarname + upvar #0 $cvarname cvar + + set tt $cvar(graph,total) + set cc $cvar(graph,current) + + set cvar(graph$cc,data,current) $which + + PlotCurrentData $cvarname +} + proc ProcessSendPlotCmd {proc id param {sock {}} {fn {}}} { global iap global parse |