summaryrefslogtreecommitdiffstats
path: root/library/entry.tcl
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-09 14:59:12 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-09 14:59:12 (GMT)
commit37ceb5fe2eba6473a2fbdb5407e449ef96345a43 (patch)
tree57746efe1742520b75333e90185f5f1680880270 /library/entry.tcl
parentc022d991663c8b76a27664090d92df0ad1a01dbb (diff)
downloadtk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.zip
tk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.tar.gz
tk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.tar.bz2
8 new virtual events (doc not updated yet)
Diffstat (limited to 'library/entry.tcl')
-rw-r--r--library/entry.tcl14
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