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

Timestamp:

Jan 11, 2010 10:52:45 PM (14 years ago)

Author:

gah

Message:

fix to xyprint

File:

• trunk/gui/scripts/combobox.tcl (modified) (1 diff)

trunk/gui/scripts/combobox.tcl

@@ -179 +179 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Combobox::current {} {
-    return [translate [$itk_component(entry) get]]
+    set raw [$itk_component(entry) get]
+    set value [translate $raw]
+    if { $value != "" } {
+        return $value
+    }
+    return $raw
 }