summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--library/ttk/entry.tcl6
2 files changed, 9 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 27e1a78..718ff21 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2007-09-30 Joe English <jenglish@users.sourceforge.net>
+
+ * library/ttk/entry.tcl (WordBack, WordForward):
+ Fix private routines accidentally defined in global namespace
+ [Bug 1803836]
+
2007-09-26 Donal K. Fellows <donal.k.fellows@manchester.ac.uk>
* library/msgs/hu.msg: Added Hungarian message set, from Pader Reszo.
diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl
index 7d84be7..cd1ba5e 100644
--- a/library/ttk/entry.tcl
+++ b/library/ttk/entry.tcl
@@ -1,5 +1,5 @@
#
-# $Id: entry.tcl,v 1.2 2006/11/07 03:45:28 jenglish Exp $
+# $Id: entry.tcl,v 1.3 2007/09/30 16:54:38 jenglish Exp $
#
# DERIVED FROM: tk/library/entry.tcl r1.22
#
@@ -452,11 +452,11 @@ proc ttk::entry::WordSelect {w from to} {
## WordBack, WordForward -- helper routines for WordSelect.
#
-proc WordBack {text index} {
+proc ttk::entry::WordBack {text index} {
if {[set pos [tcl_wordBreakBefore $text $index]] < 0} { return 0 }
return $pos
}
-proc WordForward {text index} {
+proc ttk::entry::WordForward {text index} {
if {[set pos [tcl_wordBreakAfter $text $index]] < 0} { return end }
return $pos
}