From: <ro...@us...> - 2011-12-14 21:41:37
|
Revision: 1941 http://nsclspectcl.svn.sourceforge.net/nsclspectcl/?rev=1941&view=rev Author: ron-fox Date: 2011-12-14 21:41:31 +0000 (Wed, 14 Dec 2011) Log Message: ----------- essage=Added writeDeletes flag to suppress spectrum -delete commands if desired. Modified Paths: -------------- trunk/SpecTcl/Gui/guistate.tcl Modified: trunk/SpecTcl/Gui/guistate.tcl =================================================================== --- trunk/SpecTcl/Gui/guistate.tcl 2011-12-14 21:40:38 UTC (rev 1940) +++ trunk/SpecTcl/Gui/guistate.tcl 2011-12-14 21:41:31 UTC (rev 1941) @@ -238,6 +238,8 @@ namespace eval guistate { variable gatestatus variable pseudostatus + + variable writeDeletes 1; # If true commands are emitted to delete spectra. } # getDependentGates description @@ -477,8 +479,10 @@ set type [lindex $spectrum 2] set parameters [lindex $spectrum 3] set axes [lindex $spectrum 4] - - puts $fd "catch {spectrum -delete [list $name]}" + + if {$::guistate::writeDeletes} { + puts $fd "catch {spectrum -delete [list $name]}" + } puts $fd "spectrum [list $name] $type [list $parameters] [list $axes]" } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |