From 6b32cafc8e54ed1a7bee854a77191c18186d905e Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 10 Jan 2013 18:41:42 +0000
Subject: [Bug 3600260]: Errors in new virtual event definitions

---
 ChangeLog      | 2 ++
 library/tk.tcl | 6 +++---
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 378d91a..d6de679 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,8 @@
 
 	* library/text.tcl: [Bug 3600251]: Inappropriate replacement of Mac
 	binding.
+	* library/tk.tcl: [Bug 3600260]: Errors in new virtual event
+	definitions
 
 2012-12-11  Don Porter  <dgp@users.sourceforge.net>
 
diff --git a/library/tk.tcl b/library/tk.tcl
index 282a9c7..b421d0b 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -392,7 +392,7 @@ switch -exact -- [tk windowingsystem] {
 	event add <<PrevPara>>		<Control-Up>
 	event add <<NextPara>>		<Control-Down>
 	event add <<SelectPrevPara>>	<Control-Shift-Up>
-	event add <<SelectPrevPara>>	<Control-Shift-Down>
+	event add <<SelectNextPara>>	<Control-Shift-Down>
 	event add <<ToggleSelection>>	<Control-ButtonPress-1>
 
 	# Some OS's define a goofy (as in, not <Shift-Tab>) keysym that is
@@ -441,7 +441,7 @@ switch -exact -- [tk windowingsystem] {
 	event add <<PrevPara>>		<Control-Up>
 	event add <<NextPara>>		<Control-Down>
 	event add <<SelectPrevPara>>	<Control-Shift-Up>
-	event add <<SelectPrevPara>>	<Control-Shift-Down>
+	event add <<SelectNextPara>>	<Control-Shift-Down>
 	event add <<ToggleSelection>>	<Control-ButtonPress-1>
     }
     "aqua" {
@@ -479,7 +479,7 @@ switch -exact -- [tk windowingsystem] {
 	event add <<PrevPara>>		<Option-Up>
 	event add <<NextPara>>		<Option-Down>
 	event add <<SelectPrevPara>>	<Shift-Option-Up>
-	event add <<SelectPrevPara>>	<Shift-Option-Down>
+	event add <<SelectNextPara>>	<Shift-Option-Down>
 	event add <<ToggleSelection>>	<Command-ButtonPress-1>
     }
 }
-- 
cgit v0.12