diff options
-rw-r--r-- | ds9/library/plot.tcl | 12 | ||||
-rw-r--r-- | ds9/library/plotbar.tcl | 2 | ||||
-rw-r--r-- | ds9/library/plotdialog.tcl | 2 | ||||
-rw-r--r-- | ds9/library/plotline.tcl | 2 | ||||
-rw-r--r-- | ds9/library/plotscatter.tcl | 2 |
5 files changed, 10 insertions, 10 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index ae5cab5..6e5a875 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -94,13 +94,13 @@ proc PlotAddGraph {varname} { set cc $var(graph,current) - set var(graph,$cc,data,total) 0 - set var(graph,$cc,data,current) 0 + set var(graph$cc,data,total) 0 + set var(graph$cc,data,current) 0 - set var(data,total) $var(graph,$cc,data,total) - set var(data,current) $var(graph,$cc,data,current) + set var(data,total) $var(graph$cc,data,total) + set var(data,current) $var(graph$cc,data,current) - $var(proc,addplot) $varname + $var(proc,addgraph) $varname } proc PlotAxisFormat {varname axis w nn} { @@ -128,7 +128,7 @@ proc PlotChangeMode {varname} { } } -proc PlotClearData {varname} { +proc PlotDeleteData {varname} { upvar #0 $varname var global $varname diff --git a/ds9/library/plotbar.tcl b/ds9/library/plotbar.tcl index 0548180..2648147 100644 --- a/ds9/library/plotbar.tcl +++ b/ds9/library/plotbar.tcl @@ -54,7 +54,7 @@ proc PlotBarProc {varname} { upvar #0 $varname var global $varname - set var(proc,addplot) PlotBarAddGraph + set var(proc,addgraph) PlotBarAddGraph set var(proc,updategraph) PlotBarUpdateGraph set var(proc,updateelement) PlotBarUpdateElement set var(proc,highlite) PlotBarHighliteElement diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl index c7e0c09..3c0fce7 100644 --- a/ds9/library/plotdialog.tcl +++ b/ds9/library/plotdialog.tcl @@ -56,7 +56,7 @@ proc PlotDialog {varname wtt title xaxis yaxis} { $var(mb).file add command -label "[msgcat::mc {Save Data}]..." \ -command [list PlotSaveData $varname] $var(mb).file add command -label [msgcat::mc {Clear Data}] \ - -command [list PlotClearData $varname] + -command [list PlotDeleteData $varname] $var(mb).file add command -label [msgcat::mc {Duplicate Data}] \ -command [list PlotDupData $varname 1] $var(mb).file add separator diff --git a/ds9/library/plotline.tcl b/ds9/library/plotline.tcl index 8be48ed..42f8b0f 100644 --- a/ds9/library/plotline.tcl +++ b/ds9/library/plotline.tcl @@ -54,8 +54,8 @@ proc PlotLineProc {varname} { upvar #0 $varname var global $varname + set var(proc,addgraph) PlotLineAddGraph set var(proc,updategraph) PlotUpdateGraph - set var(proc,addplot) PlotLineAddGraph set var(proc,updateelement) PlotLineUpdateElement set var(proc,highlite) PlotLineHighliteElement set var(proc,button) PlotLineButton diff --git a/ds9/library/plotscatter.tcl b/ds9/library/plotscatter.tcl index c7ccd3c..a4d4678 100644 --- a/ds9/library/plotscatter.tcl +++ b/ds9/library/plotscatter.tcl @@ -54,7 +54,7 @@ proc PlotScatterProc {varname} { upvar #0 $varname var global $varname - set var(proc,addplot) PlotScatterAddGraph + set var(proc,addgraph) PlotScatterAddGraph set var(proc,updategraph) PlotUpdateGraph set var(proc,updateelement) PlotScatterUpdateElement set var(proc,highlite) PlotScatterHighliteElement |