diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-09 11:03:00 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-09 11:03:00 (GMT) |
commit | c022d991663c8b76a27664090d92df0ad1a01dbb (patch) | |
tree | b8267b8025bccdba2a79df3790081030fc9e28ec /library/text.tcl | |
parent | b33639f20e412831ed8724517ba70b2cdab6be57 (diff) | |
download | tk-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.tcl | 24 |
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 } |