Changeset 3175 for branches/nanovis2/gui/scripts/textentry.tcl

Timestamp:

Sep 20, 2012 12:46:32 PM (12 years ago)

Author:

ldelgass

Message:

sync with trunk

Location:

branches/nanovis2

Files:

• . (modified) (1 prop)
• gui/scripts/textentry.tcl (modified) (3 diffs)

branches/nanovis2/gui/scripts/textentry.tcl

@@ -37 +37 @@
     itk_option define -height height Height 0
 
-    constructor {owner path args} { # defined below }
+    constructor {owner path args} { 
+        # defined below 
+    }
 
     public method value {args}
@@ -254 +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 {
@@ -309 +316 @@
                 $itk_component(scrollbars) contents $itk_component(text)
 
-                bind $itk_component(text) <KeyPress> \
+                # Make sure these event bindings occur after the class bindings.
+                # Otherwise you'll always get the text value before the edit.
+                bind textentry <KeyPress> \
                     [itcl::code $this _newValue]
-                bind $itk_component(text) <Control-KeyPress-a> \
+                bind textentry <Control-KeyPress-a> \
                     "[list $itk_component(text) tag add sel 1.0 end]; break"
+                set bindtags [bindtags $itk_component(text)]
+                lappend bindtags textentry
+                bindtags $itk_component(text) $bindtags
 
                 itk_component add tmenu {