diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-11 15:02:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-11 15:02:34 (GMT) |
| commit | de64eb806aa2c07e2a6661c850b23e39fe1701ff (patch) | |
| tree | 2a20280658bf52732355449dd7c52bd8e9740487 | |
| parent | cfce00e636e389f48c32d61c5483a913a0a9d656 (diff) | |
| download | tk-de64eb806aa2c07e2a6661c850b23e39fe1701ff.zip tk-de64eb806aa2c07e2a6661c850b23e39fe1701ff.tar.gz tk-de64eb806aa2c07e2a6661c850b23e39fe1701ff.tar.bz2 | |
See bug 3600390bug_3600390
| -rw-r--r-- | library/tk.tcl | 6 | ||||
| -rw-r--r-- | library/ttk/entry.tcl | 3 |
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 } |