diff options
Diffstat (limited to 'ds9/library/plotbar.tcl')
-rw-r--r-- | ds9/library/plotbar.tcl | 20 |
1 files changed, 3 insertions, 17 deletions
diff --git a/ds9/library/plotbar.tcl b/ds9/library/plotbar.tcl index bd56406..d38a49a 100644 --- a/ds9/library/plotbar.tcl +++ b/ds9/library/plotbar.tcl @@ -7,6 +7,7 @@ package provide DS9 1.0 # used by backup proc PlotBarTool {} { global iap + PlotBar $iap(tt) [msgcat::mc {Bar Plot Tool}] {} {} {} 2 {} } @@ -41,28 +42,14 @@ proc PlotBarDialog {varname wtt title xaxis yaxis} { upvar #0 $varname var global $varname - PlotBarProc $varname - PlotDialog $varname $wtt $title $xaxis $yaxis - PlotDialogBar $varname - PlotAddGraph $varname -} - -proc PlotBarProc {varname} { - upvar #0 $varname var - global $varname - set var(proc,addgraph) PlotBarAddGraph set var(proc,updategraph) PlotBarUpdateGraph set var(proc,updateelement) PlotBarUpdateElement set var(proc,highlite) PlotBarHighliteElement set var(proc,button) PlotBarButton -} - -proc PlotDialogBar {varname} { - upvar #0 $varname var - global $varname - global ds9 + PlotDialog $varname $wtt $title $xaxis $yaxis + PlotAddGraph $varname # Graph $var(mb).graph add separator @@ -138,7 +125,6 @@ proc PlotDialogBar {varname} { [list PlotBarUpdateElement $varname] WidthDashMenu $var(mb).data.error.width $varname error,width {} \ [list PlotBarUpdateElement $varname] {} - } proc PlotBarAddGraph {varname} { |