Changeset 5315 for branches/uq/lang/tcl/scripts/library.tcl

Timestamp:

Apr 25, 2015, 11:24:13 AM (9 years ago)

Author:

mmh

Message:

fix ScreenSize? bug and support multiple UQ runs with different UQ params

File:

• branches/uq/lang/tcl/scripts/library.tcl (modified) (2 diffs)

branches/uq/lang/tcl/scripts/library.tcl

@@ -696 +696 @@
     set otherv [Rappture::entities $libobj input]
 
+    # add UQ checking
+    lappend thisv uq.type uq.args
+    lappend otherv uq.type uq.args
+
     # scan through values for this object, and compare against other one
     foreach path $thisv {
@@ -717 +721 @@
         lappend rlist + $path "" $oraw
     }
+
     return $rlist
 }