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 | 37ceb5fe2eba6473a2fbdb5407e449ef96345a43 (patch) | |
| tree | 57746efe1742520b75333e90185f5f1680880270 /library/tk.tcl | |
| parent | c022d991663c8b76a27664090d92df0ad1a01dbb (diff) | |
| download | tk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.zip tk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.tar.gz tk-37ceb5fe2eba6473a2fbdb5407e449ef96345a43.tar.bz2 | |
8 new virtual events (doc not updated yet)
Diffstat (limited to 'library/tk.tcl')
| -rw-r--r-- | library/tk.tcl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/library/tk.tcl b/library/tk.tcl index 33671ed..b810dc6 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -311,6 +311,10 @@ proc ::tk::EventMotifBindings {n1 dummy dummy} { event $op <<Copy>> <Meta-Key-w> event $op <<Paste>> <Control-Key-y> 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> } #---------------------------------------------------------------------- @@ -381,6 +385,14 @@ switch -exact -- [tk windowingsystem] { event add <<SelectLineStart>> <Shift-Home> event add <<LineEnd>> <End> <Control-Key-e> <Control-Lock-Key-E> event add <<SelectLineEnd>> <Shift-End> + event add <<PrevLine>> <Up> + event add <<NextLine>> <Down> + event add <<SelectPrevLine>> <Shift-Up> + event add <<SelectNextLine>> <Shift-Down> + event add <<PrevPara>> <Control-Up> + event add <<NextPara>> <Control-Down> + event add <<SelectPrevPara>> <Shift-Control-Up> + event add <<SelectPrevPara>> <Shift-Control-Down> # Some OS's define a goofy (as in, not <Shift-Tab>) keysym that is # returned when the user presses <Shift-Tab>. In order for tab @@ -422,6 +434,14 @@ switch -exact -- [tk windowingsystem] { event add <<SelectLineStart>> <Shift-Home> event add <<LineEnd>> <End> <Control-Key-e> <Control-Lock-Key-E> event add <<SelectLineEnd>> <Shift-End> + event add <<PrevLine>> <Up> + event add <<NextLine>> <Down> + event add <<SelectPrevLine>> <Shift-Up> + event add <<SelectNextLine>> <Shift-Down> + event add <<PrevPara>> <Control-Up> + event add <<NextPara>> <Control-Down> + event add <<SelectPrevPara>> <Shift-Control-Up> + event add <<SelectPrevPara>> <Shift-Control-Down> } "aqua" { event add <<Cut>> <Command-Key-x> <Key-F2> <Control-Lock-Key-X> @@ -449,6 +469,14 @@ switch -exact -- [tk windowingsystem] { # bindings present in MS Word on OSX. event add <<LineStart>> <Home> <Command-Left> <Command-Key-a> <Control-Lock-Key-A> event add <<LineEnd>> <End> <Command-Right> <Command-Key-e> <Control-Lock-Key-E> + event add <<PrevLine>> <Up> + event add <<NextLine>> <Down> + event add <<SelectPrevLine>> <Shift-Up> + event add <<SelectNextLine>> <Shift-Down> + event add <<PrevPara>> <Option-Up> + event add <<NextPara>> <Option-Down> + event add <<SelectPrevPara>> <Shift-Option-Up> + event add <<SelectPrevPara>> <Shift-Option-Down> } } |