summaryrefslogtreecommitdiffstats
path: root/library/text.tcl
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-09 11:03:00 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-08-09 11:03:00 (GMT)
commitc022d991663c8b76a27664090d92df0ad1a01dbb (patch)
treeb8267b8025bccdba2a79df3790081030fc9e28ec /library/text.tcl
parentb33639f20e412831ed8724517ba70b2cdab6be57 (diff)
downloadtk-c022d991663c8b76a27664090d92df0ad1a01dbb.zip
tk-c022d991663c8b76a27664090d92df0ad1a01dbb.tar.gz
tk-c022d991663c8b76a27664090d92df0ad1a01dbb.tar.bz2
[Bug 3555644]: Better use of virtual events.
Diffstat (limited to 'library/text.tcl')
-rw-r--r--library/text.tcl24
1 files changed, 1 insertions, 23 deletions
diff --git a/library/text.tcl b/library/text.tcl
index 331d1b4..a71150a 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -287,11 +287,6 @@ if {[tk windowingsystem] eq "aqua"} {
# Additional emacs-like bindings:
-bind Text <Control-a> {
- if {!$tk_strictMotif} {
- tk::TextSetCursor %W {insert display linestart}
- }
-}
bind Text <Control-b> {
if {!$tk_strictMotif} {
tk::TextSetCursor %W insert-1displayindices
@@ -302,11 +297,6 @@ bind Text <Control-d> {
%W delete insert
}
}
-bind Text <Control-e> {
- if {!$tk_strictMotif} {
- tk::TextSetCursor %W {insert display lineend}
- }
-}
bind Text <Control-f> {
if {!$tk_strictMotif} {
tk::TextSetCursor %W insert+1displayindices
@@ -390,31 +380,19 @@ bind Text <Meta-Delete> {
# Macintosh only bindings:
if {[tk windowingsystem] eq "aqua"} {
-bind Text <Option-Left> {
- tk::TextSetCursor %W [tk::TextPrevPos %W insert tcl_startOfPreviousWord]
-}
-bind Text <Option-Right> {
- tk::TextSetCursor %W [tk::TextNextWord %W insert]
-}
bind Text <Option-Up> {
tk::TextSetCursor %W [tk::TextPrevPara %W insert]
}
bind Text <Option-Down> {
tk::TextSetCursor %W [tk::TextNextPara %W insert]
}
-bind Text <Shift-Option-Left> {
- tk::TextKeySelect %W [tk::TextPrevPos %W insert tcl_startOfPreviousWord]
-}
-bind Text <Shift-Option-Right> {
- tk::TextKeySelect %W [tk::TextNextWord %W insert]
-}
bind Text <Shift-Option-Up> {
tk::TextKeySelect %W [tk::TextPrevPara %W insert]
}
bind Text <Shift-Option-Down> {
tk::TextKeySelect %W [tk::TextNextPara %W insert]
}
-bind Text <Control-v> {
+bind Text <<Paste>> {
tk::TextScrollPages %W 1
}