- Timestamp:
- Aug 18, 2015, 4:09:46 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/uq/gui/scripts/responseviewer.tcl
r5743 r5810 91 91 set _label [$uqobj label] 92 92 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 100 93 if {[llength $vars] > 1} { 101 94 set cb1 [Rappture::Combobox $itk_interior.frame2.cb1 -width 10 -editable no] … … 103 96 104 97 foreach v $vars l $labs { 105 puts "inserting $v : $l"106 98 $cb1 choices insert end $v $l 107 99 $cb2 choices insert end $v $l
Note: See TracChangeset
for help on using the changeset viewer.