Changeset 1640

Timestamp:

Jan 12, 2010, 5:29:32 AM (15 years ago)

Author:

gah

Message:

 

File:

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

trunk/gui/scripts/combobox.tcl

@@ -40 +40 @@
 
     public method value {args}
-    public method translate {value}
+    public method translate {value {defValue ""}}
     public method label {value}
     public method current {}
@@ -150 +150 @@
 # method returns the corresponding value.  Otherwise, it returns "".
 # ----------------------------------------------------------------------
-itcl::body Rappture::Combobox::translate {value} {
+itcl::body Rappture::Combobox::translate {value {defValue ""}} {
     foreach {val label} [choices get -both] {
         if {$label == $value} {
@@ -156 +156 @@
         }
     }
-    return ""
+    return $defValue
 }
 
@@ -180 +180 @@
 itcl::body Rappture::Combobox::current {} {
     set raw [$itk_component(entry) get]
-    set value [translate $raw]
-    if { $value != "" } {
+    set value [translate $raw "badValue"]
+    if { $value != "badValue" } {
         return $value
     }