Changeset 1588 for trunk/gui/scripts/combobox.tcl

Timestamp:

Oct 23, 2009, 3:37:28 PM (15 years ago)

Author:

gah

Message:

don't use: broken xyresult print

File:

• trunk/gui/scripts/combobox.tcl (modified) (3 diffs)

trunk/gui/scripts/combobox.tcl

@@ -41 +41 @@
     public method value {args}
     public method translate {value}
+    public method label {value}
+    public method current {}
     public method choices {option args}
 
@@ -53 +55 @@
            0xfe, 0x7c, 0x38, 0x10};
     }
+    private variable _value2label
+    private variable _label2value
 }
                                                                                 
@@ -153 +157 @@
     }
     return ""
+}
+
+# ----------------------------------------------------------------------
+# USAGE: label <value>
+#
+# Clients use this to translate a value to a label.
+# ----------------------------------------------------------------------
+itcl::body Rappture::Combobox::label { myValue } {
+    foreach {val label} [choices get -both] {
+        if {$myValue == $val} {
+            return $label
+        }
+    }
+    return ""
+}
+
+# ----------------------------------------------------------------------
+# USAGE: getValue <value>
+#
+# Clients use this to translate a value to a label.
+# ----------------------------------------------------------------------
+itcl::body Rappture::Combobox::current {} {
+    return [translate [$itk_component(entry) get]]
 }