summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--library/text.tcl14
1 files 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
}
}