Changeset 5810

Timestamp:

Aug 18, 2015 4:09:46 PM (9 years ago)

Author:

mmh

Message:

support better tagging of uq objects

File:

• branches/uq/gui/scripts/responseviewer.tcl (modified) (2 diffs)

branches/uq/gui/scripts/responseviewer.tcl

@@ -91 +91 @@
     set _label [$uqobj label]
 
-    if {[string match "*:UQ:?" $_label]} {
-        set len [string length $_label]
-        set _label [string replace $_label [expr $len-5] end]
-    }
-    puts "LABEL=$_label"
-    puts "VARS=$vars [llength $vars]"
-
     if {[llength $vars] > 1} {
         set cb1 [Rappture::Combobox $itk_interior.frame2.cb1 -width 10 -editable no]
@@ -103 +96 @@
 
         foreach v $vars l $labs {
-            puts "inserting $v : $l"
             $cb1 choices insert end $v $l
             $cb2 choices insert end $v $l