diff options
| -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 } |