Changeset 6317 for branches/multichoice

Timestamp:

May 5, 2016, 9:24:05 PM (9 years ago)

Author:

dkearney

Message:

fix multichoice widget to return the value string for chosen labels, if available, instead of returning the label.

File:

• branches/multichoice/gui/scripts/multichoiceentry.tcl (modified) (1 diff)

branches/multichoice/gui/scripts/multichoiceentry.tcl

@@ -122 +122 @@
     # Query the value and return.
     #
+    set result ""
     set str [$itk_component(choice) value]
-    if {[info exists _str2val($str)]} {
-        return $_str2val($str)
-    }
-    return $str
+    regsub -all {, } $str {,} str
+    foreach lbl [split $str {,}] {
+        if {[info exists _str2val($lbl)]} {
+            set lbl $_str2val($lbl)
+        }
+        lappend result $lbl
+    }
+    return [join $result {, }]
 }