summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--library/tk.tcl10
1 files changed, 5 insertions, 5 deletions
diff --git a/library/tk.tcl b/library/tk.tcl
index 7ef25ec..4d8174d 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -369,7 +369,7 @@ switch -exact -- [tk windowingsystem] {
event add <<ContextMenu>> <Button-2>
}
- event add <<SelectAll>> <Control-Key-slash>
+ event add <<SelectAll>> <Control-Key-slash> <Control-Key-a> <Control-Lock-Key-A>
event add <<SelectNone>> <Control-Key-backslash>
event add <<NextChar>> <Right> <Control-Key-f> <Control-Lock-Key-F>
event add <<SelectNextChar>> <Shift-Right> <Control-Key-F> <Control-Lock-Key-f>
@@ -379,7 +379,7 @@ switch -exact -- [tk windowingsystem] {
event add <<SelectNextWord>> <Control-Shift-Right>
event add <<PrevWord>> <Control-Left>
event add <<SelectPrevWord>> <Control-Shift-Left>
- event add <<LineStart>> <Home> <Control-Key-a> <Control-Lock-Key-A>
+ event add <<LineStart>> <Home>
event add <<SelectLineStart>> <Shift-Home> <Control-Key-A> <Control-Lock-Key-a>
event add <<LineEnd>> <End> <Control-Key-e> <Control-Lock-Key-E>
event add <<SelectLineEnd>> <Shift-End> <Control-Key-E> <Control-Lock-Key-e>
@@ -417,7 +417,7 @@ switch -exact -- [tk windowingsystem] {
event add <<Redo>> <Control-Key-y> <Control-Lock-Key-Y>
event add <<ContextMenu>> <Button-3>
- event add <<SelectAll>> <Control-Key-slash>
+ event add <<SelectAll>> <Control-Key-slash> <Control-Key-a> <Control-Lock-Key-A>
event add <<SelectNone>> <Control-Key-backslash>
event add <<NextChar>> <Right>
event add <<SelectNextChar>> <Shift-Right>
@@ -427,9 +427,9 @@ switch -exact -- [tk windowingsystem] {
event add <<SelectNextWord>> <Control-Shift-Right>
event add <<PrevWord>> <Control-Left>
event add <<SelectPrevWord>> <Control-Shift-Left>
- event add <<LineStart>> <Home> <Control-Key-a> <Control-Lock-Key-A>
+ event add <<LineStart>> <Home>
event add <<SelectLineStart>> <Shift-Home>
- event add <<LineEnd>> <End> <Control-Key-e> <Control-Lock-Key-E>
+ event add <<LineEnd>> <End>
event add <<SelectLineEnd>> <Shift-End>
event add <<PrevLine>> <Up>
event add <<NextLine>> <Down>