summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-11 15:02:34 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-11 15:02:34 (GMT)
commitde64eb806aa2c07e2a6661c850b23e39fe1701ff (patch)
tree2a20280658bf52732355449dd7c52bd8e9740487
parentcfce00e636e389f48c32d61c5483a913a0a9d656 (diff)
downloadtk-de64eb806aa2c07e2a6661c850b23e39fe1701ff.zip
tk-de64eb806aa2c07e2a6661c850b23e39fe1701ff.tar.gz
tk-de64eb806aa2c07e2a6661c850b23e39fe1701ff.tar.bz2
See bug 3600390bug_3600390
-rw-r--r--library/tk.tcl6
-rw-r--r--library/ttk/entry.tcl3
2 files changed, 6 insertions, 3 deletions
diff --git a/library/tk.tcl b/library/tk.tcl
index b421d0b..bc8cace 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -313,6 +313,12 @@ proc ::tk::EventMotifBindings {n1 dummy dummy} {
event $op <<Copy>> <Meta-Key-w> <Control-Key-Insert>
event $op <<Paste>> <Control-Key-y> <Shift-Key-Insert>
event $op <<Undo>> <Control-underscore>
+ event $op <<PrevChar>> <Control-Key-b>
+ event $op <<NextChar>> <Control-Key-f>
+ event $op <<PrevLine>> <Control-Key-p>
+ event $op <<NextLine>> <Control-Key-n>
+ event $op <<LineStart>> <Control-Key-a>
+ event $op <<LineEnd>> <Control-Key-e>
}
#----------------------------------------------------------------------
diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl
index f5ba19e..7d9c9ef 100644
--- a/library/ttk/entry.tcl
+++ b/library/ttk/entry.tcl
@@ -141,9 +141,6 @@ bind TEntry <<NextLine>> {# nothing}
## Additional emacs-like bindings:
#
-bind TEntry <Control-Key-b> { ttk::entry::Move %W prevchar }
-bind TEntry <Control-Key-d> { ttk::entry::Delete %W }
-bind TEntry <Control-Key-f> { ttk::entry::Move %W nextchar }
bind TEntry <Control-Key-h> { ttk::entry::Backspace %W }
bind TEntry <Control-Key-k> { %W delete insert end }