From 39eb78f09822d3be7c849892f87a57b7267f912a Mon Sep 17 00:00:00 2001 From: jenglish Date: Sun, 30 Sep 2007 16:54:37 +0000 Subject: Fix private routines accidentally defined in global namespace [Bug 1803836] --- ChangeLog | 6 ++++++ library/ttk/entry.tcl | 6 +++--- 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 + + * library/ttk/entry.tcl (WordBack, WordForward): + Fix private routines accidentally defined in global namespace + [Bug 1803836] + 2007-09-26 Donal K. Fellows * 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 } -- cgit v0.12