summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-15 13:51:48 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-15 13:51:48 (GMT)
commite6aac5ccc80d9f75e8b1e7fb71090eba0329c39d (patch)
tree9f768c9c616bb7a7a05552253799c757b8a8995f
parent5b214e4a7ee9d69825b3bf122706d33849734318 (diff)
downloadtk-e6aac5ccc80d9f75e8b1e7fb71090eba0329c39d.zip
tk-e6aac5ccc80d9f75e8b1e7fb71090eba0329c39d.tar.gz
tk-e6aac5ccc80d9f75e8b1e7fb71090eba0329c39d.tar.bz2
[Frq 3555324]: On Windows, re-define Ctrl-A for Select-All., as most Windows applications do.
-rw-r--r--library/tk.tcl6
1 files changed, 3 insertions, 3 deletions
diff --git a/library/tk.tcl b/library/tk.tcl
index 7ef25ec..0d8853f 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -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>