summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog2
-rw-r--r--library/tk.tcl6
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>
}
}