Changeset 5810


Ignore:
Timestamp:
Aug 18, 2015 4:09:46 PM (7 years ago)
Author:
mmh
Message:

support better tagging of uq objects

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/uq/gui/scripts/responseviewer.tcl

    r5743 r5810  
    9191    set _label [$uqobj label]
    9292
    93     if {[string match "*:UQ:?" $_label]} {
    94         set len [string length $_label]
    95         set _label [string replace $_label [expr $len-5] end]
    96     }
    97     puts "LABEL=$_label"
    98     puts "VARS=$vars [llength $vars]"
    99 
    10093    if {[llength $vars] > 1} {
    10194        set cb1 [Rappture::Combobox $itk_interior.frame2.cb1 -width 10 -editable no]
     
    10396
    10497        foreach v $vars l $labs {
    105             puts "inserting $v : $l"
    10698            $cb1 choices insert end $v $l
    10799            $cb2 choices insert end $v $l
Note: See TracChangeset for help on using the changeset viewer.