diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-30 12:40:08 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-30 12:40:08 (GMT) |
| commit | aad931da362eb5989d4098353a10f94674c2e01b (patch) | |
| tree | 1b09b5973570ded8b5a02411e3c4f4a136759eda /library | |
| parent | 2c08343780af6943598042b2050148a6de2fa851 (diff) | |
| parent | 4b392d3f1625c5640b4a73024d99d89dd180380e (diff) | |
| download | tk-aad931da362eb5989d4098353a10f94674c2e01b.zip tk-aad931da362eb5989d4098353a10f94674c2e01b.tar.gz tk-aad931da362eb5989d4098353a10f94674c2e01b.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library')
| -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 276c879..2d9cd32 100644 --- a/library/ttk/entry.tcl +++ b/library/ttk/entry.tcl @@ -537,12 +537,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 } |