diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-09 14:59:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-09 14:59:12 (GMT) |
| commit | 26992eba70ff3f4f9c8b3d0054916858ffeaf155 (patch) | |
| tree | 57746efe1742520b75333e90185f5f1680880270 /library/entry.tcl | |
| parent | ebe99473e61961e6e6c4525ed9efe66f7c3de308 (diff) | |
| download | tk-26992eba70ff3f4f9c8b3d0054916858ffeaf155.zip tk-26992eba70ff3f4f9c8b3d0054916858ffeaf155.tar.gz tk-26992eba70ff3f4f9c8b3d0054916858ffeaf155.tar.bz2 | |
8 new virtual events (doc not updated yet)
Diffstat (limited to 'library/entry.tcl')
| -rw-r--r-- | library/entry.tcl | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/library/entry.tcl b/library/entry.tcl index 5dbf063..026363c 100644 --- a/library/entry.tcl +++ b/library/entry.tcl @@ -214,8 +214,8 @@ if {[tk windowingsystem] eq "aqua"} { bind Entry <Command-KeyPress> {# nothing} } # Tk-on-Cocoa generates characters for these two keys. [Bug 2971663] -bind Entry <Down> {# nothing} -bind Entry <Up> {# nothing} +bind Entry <<NextLine>> {# nothing} +bind Entry <<PrevLine>> {# nothing} # On Windows, paste is done using Shift-Insert. Shift-Insert already # generates the <<Paste>> event, so we don't need to do anything here. @@ -227,21 +227,11 @@ if {[tk windowingsystem] ne "win32"} { # Additional emacs-like bindings: -bind Entry <Control-b> { - if {!$tk_strictMotif} { - tk::EntrySetCursor %W [expr {[%W index insert] - 1}] - } -} bind Entry <Control-d> { if {!$tk_strictMotif} { %W delete insert } } -bind Entry <Control-f> { - if {!$tk_strictMotif} { - tk::EntrySetCursor %W [expr {[%W index insert] + 1}] - } -} bind Entry <Control-h> { if {!$tk_strictMotif} { tk::EntryBackspace %W |