Changeset 5869 for branches

Timestamp:

Sep 17, 2015, 9:30:15 AM (9 years ago)

Author:

gah

Message:

comment out debug messages for UQ

Location:

branches/1.4-release

Files:

• gui/scripts/uq.tcl (modified) (2 diffs)
• lang/tcl/scripts/library.tcl (modified) (1 diff)

branches/1.4-release/gui/scripts/uq.tcl

@@ -5 +5 @@
 
     constructor {varlist num type uqargs} {
-        puts "Rappture::UQ constructor $varlist:$type:$uqargs"
+        #puts "Rappture::UQ constructor $varlist:$type:$uqargs"
         set _varlist $varlist
         set _type $type
@@ -120 +120 @@
 
 itcl::body Rappture::UQ::num_runs {} {
-    puts "varlist=$_varlist"
+    #puts "varlist=$_varlist"
     set numvars  $_num
-    puts "UQ num_runs $numvars $_type $_args"
+    #puts "UQ num_runs $numvars $_type $_args"
     if {![array exists _num_pts]} { _init_num_pts_array }
     switch $_type {

branches/1.4-release/lang/tcl/scripts/library.tcl

@@ -1153 +1153 @@
     }
     if {$varout == "\[\]"} {set varout ""}
-    puts "uq_get_vars returning $varout"
+    #puts "uq_get_vars returning $varout"
     return [list $varout $count]
 }