diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-28 17:31:03 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-28 17:31:03 (GMT) |
commit | 24ac9f46d854edfec75630eba1eddc1943da1843 (patch) | |
tree | 30df5ee04f02e0514ac2c8f7c40cff4c71969e16 | |
parent | 4f2a9b5c0ecc7a591a2b0329c2250d48d56d9753 (diff) | |
download | blt-24ac9f46d854edfec75630eba1eddc1943da1843.zip blt-24ac9f46d854edfec75630eba1eddc1943da1843.tar.gz blt-24ac9f46d854edfec75630eba1eddc1943da1843.tar.bz2 |
add multiple plot support
-rw-r--r-- | ds9/library/plotdialog.tcl | 14 | ||||
-rw-r--r-- | ds9/library/plotprocess.tcl | 12 |
2 files changed, 11 insertions, 15 deletions
diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl index 8694893..39811bc 100644 --- a/ds9/library/plotdialog.tcl +++ b/ds9/library/plotdialog.tcl @@ -506,20 +506,6 @@ proc PlotLineShapeMenu {which var} { -variable $var -value arrow } -proc PlotLineSmoothMenu {which var} { - menu $which - $which add radiobutton -label [msgcat::mc {Step}] \ - -variable $var -value step - $which add radiobutton -label [msgcat::mc {Linear}] \ - -variable $var -value linear - $which add radiobutton -label [msgcat::mc {Cubic}] \ - -variable $var -value cubic - $which add radiobutton -label [msgcat::mc {Quadratic}] \ - -variable $var -value quadratic - $which add radiobutton -label [msgcat::mc {Catrom}] \ - -variable $var -value catrom -} - proc PlotShapeMenu {varname} { upvar #0 $varname var global $varname diff --git a/ds9/library/plotprocess.tcl b/ds9/library/plotprocess.tcl index 9a9fa16..ba9044b 100644 --- a/ds9/library/plotprocess.tcl +++ b/ds9/library/plotprocess.tcl @@ -75,7 +75,17 @@ proc PrefsDialogPlot {} { ttk::label $f.smoothtitle -text [msgcat::mc {Smooth}] ttk::menubutton $f.smooth -textvariable pap(smooth) \ -menu $f.smooth.menu - PlotLineSmoothMenu $f.smooth.menu pap(smooth) + menu $f.smooth.menu + $f.smooth.menu add radiobutton -label [msgcat::mc {Step}] \ + -variable pap(smooth) -value step + $f.smooth.menu add radiobutton -label [msgcat::mc {Linear}] \ + -variable pap(smooth) -value linear + $f.smooth.menu add radiobutton -label [msgcat::mc {Cubic}] \ + -variable pap(smooth) -value cubic + $f.smooth.menu add radiobutton -label [msgcat::mc {Quadratic}] \ + -variable pap(smooth) -value quadratic + $f.smooth.menu add radiobutton -label [msgcat::mc {Catrom}] \ + -variable pap(smooth) -value catrom grid $f.smoothtitle $f.smooth -padx 2 -pady 2 -sticky w # Color |