From e6aac5ccc80d9f75e8b1e7fb71090eba0329c39d Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 15 Aug 2012 13:51:48 +0000
Subject: [Frq 3555324]: On Windows, re-define Ctrl-A for Select-All., as most
 Windows applications do.

---
 library/tk.tcl | 6 +++---
 1 file 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>
-- 
cgit v0.12