Changeset 3800 for branches/1.3/gui/scripts/sequenceresult.tcl

Timestamp:

Jul 15, 2013, 9:29:39 AM (11 years ago)

Author:

gah

Message:

add -simulation to plotadd calls

File:

• branches/1.3/gui/scripts/sequenceresult.tcl (modified) (1 diff)

branches/1.3/gui/scripts/sequenceresult.tcl

@@ -212 +212 @@
         -param ""
     }
-    foreach {opt val} $settings {
-        if {![info exists params($opt)]} {
-            error "bad setting \"$opt\": should be [join [lsort [array names params]] {, }]"
-        }
-        set params($opt) $val
-    }
+    array set params $settings
 
     if {$params(-raise) && "" == $_topmost} {