From f633e0397e300b485da9de349f79ba5aed44a5f9 Mon Sep 17 00:00:00 2001 From: dkf Date: Tue, 26 Jul 2005 12:38:19 +0000 Subject: Very minor whitespace fixes --- library/text.tcl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/library/text.tcl b/library/text.tcl index aac82cb..051f9b8 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.38 2005/07/21 15:42:20 dkf Exp $ +# RCS: @(#) $Id: text.tcl,v 1.39 2005/07/26 12:38:19 dkf Exp $ # # Copyright (c) 1992-1994 The Regents of the University of California. # Copyright (c) 1994-1997 Sun Microsystems, Inc. @@ -453,8 +453,8 @@ set ::tk::Priv(prevPos) {} # down to zero. # We must make sure that positive and negative movements are rounded -# equally to integers, avoiding the problem that -# (int)1/3 = 0, +# equally to integers, avoiding the problem that +# (int)1/3 = 0, # but # (int)-1/3 = -1 # The following code ensure equal +/- behaviour. @@ -604,14 +604,14 @@ proc ::tk::TextSelectTo {w x y {extend 0}} { } elseif {[$w compare $cur > $last]} { set last $cur } - + # Now find word boundaries set first [TextPrevPos $w "$first + 1c" tcl_wordBreakBefore] set last [TextNextPos $w "$last - 1c" tcl_wordBreakAfter] } line { # Set initial range based only on the anchor - set first "tk::anchor$w linestart" + set first "tk::anchor$w linestart" set last "tk::anchor$w lineend" # Extend range (if necessary) based on the current point @@ -862,8 +862,8 @@ proc ::tk::TextInsert {w s} { $w insert insert $s $w see insert if {$compound && $oldSeparator} { - $w edit separator - $w configure -autoseparators 1 + $w edit separator + $w configure -autoseparators 1 } } -- cgit v0.12