From: <ro...@us...> - 2012-01-19 22:01:33
|
Revision: 1972 http://nsclspectcl.svn.sourceforge.net/nsclspectcl/?rev=1972&view=rev Author: ron-fox Date: 2012-01-19 22:01:27 +0000 (Thu, 19 Jan 2012) Log Message: ----------- Remove debug spew Modified Paths: -------------- trunk/SpecTcl/Gui/spectrum.tcl Modified: trunk/SpecTcl/Gui/spectrum.tcl =================================================================== --- trunk/SpecTcl/Gui/spectrum.tcl 2012-01-19 21:58:43 UTC (rev 1971) +++ trunk/SpecTcl/Gui/spectrum.tcl 2012-01-19 22:01:27 UTC (rev 1972) @@ -913,9 +913,7 @@ } proc addSpectrumDestroyWidget widget { - puts "will destroy $widget [winfo exists $widget]" - catch {addSpectrum $widget} msg - puts "back from addSpectrum $msg" + addSpectrum $widget destroy $widget } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |