Changeset 3080 for trunk/gui

Timestamp:

Jul 6, 2012 7:17:47 AM (12 years ago)

Author:

gah

Message:

 

File:

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

trunk/gui/scripts/textentry.tcl

@@ -256 +256 @@
                     -foreground $itk_option(-textforeground)
 
-                bind $itk_component(entry) <KeyPress> \
+                # Make sure these event bindings occur after the class bindings.
+                # Otherwise you'll always get the entry value before the edit.
+                bind textentry <KeyPress> \
                     [itcl::code $this _newValue]
-                bind $itk_component(entry) <Control-KeyPress-a> \
+                bind textentry <Control-KeyPress-a> \
                     "[list $itk_component(entry) selection range 0 end]; break"
+                set bindtags [bindtags $itk_component(entry)]
+                lappend bindtags textentry
+                bindtags $itk_component(entry) $bindtags
 
                 itk_component add emenu {