diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-28 17:37:38 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-28 17:37:38 (GMT) |
| commit | a2ec298aae86bcf577e28753820cb6399b1b80b4 (patch) | |
| tree | 6e2266d30977dde10671cd701767c0f25d883772 /ds9/library/plotdialog.tcl | |
| parent | 24ac9f46d854edfec75630eba1eddc1943da1843 (diff) | |
| download | blt-a2ec298aae86bcf577e28753820cb6399b1b80b4.zip blt-a2ec298aae86bcf577e28753820cb6399b1b80b4.tar.gz blt-a2ec298aae86bcf577e28753820cb6399b1b80b4.tar.bz2 | |
add multiple plot support
Diffstat (limited to 'ds9/library/plotdialog.tcl')
| -rw-r--r-- | ds9/library/plotdialog.tcl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl index 39811bc..c4383e6 100644 --- a/ds9/library/plotdialog.tcl +++ b/ds9/library/plotdialog.tcl @@ -567,6 +567,32 @@ proc PlotShapeMenu {varname} { [list $var(proc,updateelement) $varname] } +proc PlotErrorMenu {varname} { + upvar #0 $varname var + global $varname + + set tt $var(graph,total) + set cc $var(graph,current) + + menu $var(mb).data.error + $var(mb).data.error add checkbutton -label [msgcat::mc {Show}] \ + -variable ${varname}(graph$cc,error) \ + -command [list $var(proc,updateelement) $varname] + $var(mb).data.error add checkbutton -label [msgcat::mc {Cap}] \ + -variable ${varname}(graph$cc,error,cap) \ + -command [list $var(proc,updateelement) $varname] + $var(mb).data.error add separator + $var(mb).data.error add cascade -label [msgcat::mc {Color}] \ + -menu $var(mb).data.error.color + $var(mb).data.error add cascade -label [msgcat::mc {Width}] \ + -menu $var(mb).data.error.width + + PlotColorMenu $var(mb).data.error.color $varname graph$cc,error,color \ + [list $var(proc,updateelement) $varname] + WidthDashMenu $var(mb).data.error.width $varname graph$cc,error,width {} \ + [list $var(proc,updateelement) $varname] {} +} + proc PlotExportDialog {varname format} { upvar #0 $varname var global $varname |