diff options
-rw-r--r-- | ds9/library/plot.tcl | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/ds9/library/plot.tcl b/ds9/library/plot.tcl index 75fd2a4..825a509 100644 --- a/ds9/library/plot.tcl +++ b/ds9/library/plot.tcl @@ -308,20 +308,6 @@ proc PlotDeleteDataSetCurrent {varname} { PlotDeleteDataSet $varname } -proc PlotDeleteDataSetAll {varname} { - upvar #0 $varname var - global $varname - - if {[llength $var(graph,dss)] == 0} { - return - } - - foreach nn $var(graph,dss) { - set var(graph,ds,current) $nn - PlotDeleteDataSet $varname - } -} - proc PlotDeleteDataSet {varname} { upvar #0 $varname var global $varname |