diff options
| author | jenglish <jenglish@noemail.net> | 2007-09-30 16:54:36 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@noemail.net> | 2007-09-30 16:54:36 (GMT) |
| commit | 84df2db36d440ff244bffe19d86b040cc574938e (patch) | |
| tree | 04d694ca5e881548a5dfa741f33153549f97bcd2 /library | |
| parent | ba8786e791437fca6ba5ecb4dd171653268480d7 (diff) | |
| download | tk-84df2db36d440ff244bffe19d86b040cc574938e.zip tk-84df2db36d440ff244bffe19d86b040cc574938e.tar.gz tk-84df2db36d440ff244bffe19d86b040cc574938e.tar.bz2 | |
Fix private routines accidentally defined in global namespace [Bug 1803836]
FossilOrigin-Name: 4b695ec036b7b4feacf82f683140a8dfb5c2cd9d
Diffstat (limited to 'library')
| -rw-r--r-- | library/ttk/entry.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
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 } |