summaryrefslogtreecommitdiffstats
path: root/ds9/library/plotline.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'ds9/library/plotline.tcl')
-rw-r--r--ds9/library/plotline.tcl19
1 files changed, 3 insertions, 16 deletions
diff --git a/ds9/library/plotline.tcl b/ds9/library/plotline.tcl
index cc51682..60f1d1b 100644
--- a/ds9/library/plotline.tcl
+++ b/ds9/library/plotline.tcl
@@ -7,6 +7,7 @@ package provide DS9 1.0
# used by backup
proc PlotLineTool {} {
global iap
+
PlotLine $iap(tt) [msgcat::mc {Line Plot Tool}] {} {} {} 2 {}
}
@@ -41,28 +42,14 @@ proc PlotLineDialog {varname wtt title xaxis yaxis} {
upvar #0 $varname var
global $varname
- PlotLineProc $varname
- PlotDialog $varname $wtt $title $xaxis $yaxis
- PlotDialogLine $varname
- PlotAddGraph $varname
-}
-
-proc PlotLineProc {varname} {
- upvar #0 $varname var
- global $varname
-
set var(proc,addgraph) PlotLineAddGraph
set var(proc,updategraph) PlotUpdateGraph
set var(proc,updateelement) PlotLineUpdateElement
set var(proc,highlite) PlotLineHighliteElement
set var(proc,button) PlotLineButton
-}
-proc PlotDialogLine {varname} {
- upvar #0 $varname var
- global $varname
-
- global ds9
+ PlotDialog $varname $wtt $title $xaxis $yaxis
+ PlotAddGraph $varname
# Data
$var(mb).data add checkbutton -label [msgcat::mc {Show}] \