diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-30 12:42:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-30 12:42:32 (GMT) |
| commit | 793bcdb63ca66145e9be007a1e74aab7ba87abae (patch) | |
| tree | 42517809cd60326d878ae37026e6dd4e89c42391 /library/ttk | |
| parent | bda1249038ccc3b3d0c8148115418b95ce5f5ff5 (diff) | |
| parent | 4b392d3f1625c5640b4a73024d99d89dd180380e (diff) | |
| download | tk-793bcdb63ca66145e9be007a1e74aab7ba87abae.zip tk-793bcdb63ca66145e9be007a1e74aab7ba87abae.tar.gz tk-793bcdb63ca66145e9be007a1e74aab7ba87abae.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/entry.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl index 66b2efd..b0fdff1 100644 --- a/library/ttk/entry.tcl +++ b/library/ttk/entry.tcl @@ -551,12 +551,12 @@ proc ttk::entry::WordSelect {w from to} { ## WordBack, WordForward -- helper routines for WordSelect. # -proc ttk::entry::WordBack {text index} { - if {[set pos [tk::wordBreakBefore $text $index]] < 0} { return 0 } +proc ttk::entry::WordBack {text index {locale {}}} { + if {[set pos [tk::wordBreakBefore $text $index $locale]] < 0} { return 0 } return $pos } -proc ttk::entry::WordForward {text index} { - if {[set pos [tk::wordBreakAfter $text $index]] < 0} { return end } +proc ttk::entry::WordForward {text index {locale {}}} { + if {[set pos [tk::wordBreakAfter $text $index $locale]] < 0} { return end } return $pos } |