From 0b7e8337d47378cf0dc522d2ec715e979968542d Mon Sep 17 00:00:00 2001 From: dkf Date: Tue, 15 Jun 2010 14:30:48 +0000 Subject: * library/text.tcl (TextCursorInSelection): [Patch 2585265]: Make it so that pressing delete or backspace when the primary selection does not include the insertion cursor does not cause the deletion of the inserted text. --- ChangeLog | 61 +++++++++++++++++++++++++++++++------------------------- library/text.tcl | 38 +++++++++++++++++++++++------------ 2 files changed, 59 insertions(+), 40 deletions(-) diff --git a/ChangeLog b/ChangeLog index 34f19a8..8888b7b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,30 +1,37 @@ +2010-06-15 Donal K. Fellows + + * library/text.tcl (TextCursorInSelection): [Patch 2585265]: Make it + so that pressing delete or backspace when the primary selection does + not include the insertion cursor does not cause the deletion of the + inserted text. + 2010-06-15 Jan Nijtmans - * generic/tkCanvArc.c Eliminate many unnecessary - * generic/tkCanvas.c (ClientData) type casts. - * generic/tkCanvBmap.c - * generic/tkCanvImg.c - * generic/tkCanvLine.c - * generic/tkCanvPoly.c - * generic/tkCanvTest.c - * generic/tkCanvWind.c - * generic/tkRectOval.c - * generic/tkScrollbar.c - * generic/tkStyle.c - * generic/tkTest.c - * unix/tkUnixEmbed.c - * unix/tkUnixEvent.c - * unix/tkUnixScale.c - * unix/tkUnixScrlbr.c - * unix/tkUnixSelect.c - * unix/tkUnixWm.c - * carbon/tkMacOSXDialog.c: Terminate TkEnsemble definition with NULL - * macosx/tkMacOSXDialog.c + * generic/tkCanvArc.c: Eliminate many unnecessary (ClientData) type + * generic/tkCanvas.c: casts. + * generic/tkCanvBmap.c: + * generic/tkCanvImg.c: + * generic/tkCanvLine.c: + * generic/tkCanvPoly.c: + * generic/tkCanvTest.c: + * generic/tkCanvWind.c: + * generic/tkRectOval.c: + * generic/tkScrollbar.c: + * generic/tkStyle.c: + * generic/tkTest.c: + * unix/tkUnixEmbed.c: + * unix/tkUnixEvent.c: + * unix/tkUnixScale.c: + * unix/tkUnixScrlbr.c: + * unix/tkUnixSelect.c: + * unix/tkUnixWm.c: + * carbon/tkMacOSXDialog.c: Terminate TkEnsemble definition with NULL + * macosx/tkMacOSXDialog.c: 2010-05-31 Joe English - * generic/tkBind.c(Tk_CreateBinding): Silently ignore empty - scripts (Fixes [Bug 3006842]). + * generic/tkBind.c (Tk_CreateBinding): [Bug 3006842]: Silently ignore + empty scripts. 2010-05-27 Joe English @@ -35,11 +42,11 @@ 2010-05-26 Jan Nijtmans - * tests/wm.test: Fix 3 tests on Ubuntu 10.4, two of them timing dependent, - one wm-dependent. - * generic/tkText.c Fix some gcc strict-aliasing warnings (discovered - * unix/tkUnixFont.c with "-Wstrict-aliasing=2" - * unix/tkUnixSelect.c + * tests/wm.test: Fix 3 tests on Ubuntu 10.4, two of them timing + dependent, one wm-dependent. + * generic/tkText.c: Fix some gcc strict-aliasing warnings, + * unix/tkUnixFont.c: discovered with "-Wstrict-aliasing=2" + * unix/tkUnixSelect.c: 2010-05-20 Donal K. Fellows diff --git a/library/text.tcl b/library/text.tcl index 74a8d6b..c609665 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -3,7 +3,7 @@ # This file defines the default bindings for Tk text widgets and provides # procedures that help in implementing the bindings. # -# RCS: @(#) $Id: text.tcl,v 1.45 2010/01/06 18:37:36 dkf Exp $ +# RCS: @(#) $Id: text.tcl,v 1.46 2010/06/15 14:30:48 dkf Exp $ # # Copyright (c) 1992-1994 The Regents of the University of California. # Copyright (c) 1994-1997 Sun Microsystems, Inc. @@ -208,7 +208,7 @@ bind Text { } } bind Text { - if {[%W tag nextrange sel 1.0 end] ne ""} { + if {[tk::TextCursorInSelection %W]} { %W delete sel.first sel.last } else { if {[%W compare end != insert+1c]} { @@ -218,7 +218,7 @@ bind Text { } } bind Text { - if {[%W tag nextrange sel 1.0 end] ne ""} { + if {[tk::TextCursorInSelection %W]} { %W delete sel.first sel.last } else { if {[%W compare insert != 1.0]} { @@ -866,6 +866,21 @@ proc ::tk::TextResetAnchor {w index} { } } +# ::tk::TextCursorInSelection -- +# Check whether the selection exists and contains the insertion cursor. Note +# that it assumes that the selection is contiguous. +# +# Arguments: +# w - The text widget whose selection is to be checked + +proc ::tk::TextCursorInSelection {w} { + expr { + [llength [$w tag ranges sel]] + && [$w compare sel.first <= insert] + && [$w compare sel.last >= insert] + } +} + # ::tk::TextInsert -- # Insert a string into a text at the point of the insertion cursor. # If there is a selection in the text, and it covers the point of the @@ -880,17 +895,14 @@ proc ::tk::TextInsert {w s} { return } set compound 0 - if {[llength [set range [$w tag ranges sel]]]} { - if {[$w compare [lindex $range 0] <= insert] \ - && [$w compare [lindex $range end] >= insert]} { - set oldSeparator [$w cget -autoseparators] - if {$oldSeparator} { - $w configure -autoseparators 0 - $w edit separator - set compound 1 - } - $w delete [lindex $range 0] [lindex $range end] + if {[TextCursorInSelection $w]} { + set oldSeparator [$w cget -autoseparators] + if {$oldSeparator} { + $w configure -autoseparators 0 + $w edit separator + set compound 1 } + $w delete sel.first sel.last } $w insert insert $s $w see insert -- cgit v0.12