diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-30 12:39:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-30 12:39:27 (GMT) |
| commit | 4b392d3f1625c5640b4a73024d99d89dd180380e (patch) | |
| tree | 92119b4484bd3c4bd15e0af54d31ea8dc4fdebf7 /library/ttk | |
| parent | 2ce78dbcc2f05692112c692a562a08b477ff06ab (diff) | |
| download | tk-4b392d3f1625c5640b4a73024d99d89dd180380e.zip tk-4b392d3f1625c5640b4a73024d99d89dd180380e.tar.gz tk-4b392d3f1625c5640b4a73024d99d89dd180380e.tar.bz2 | |
Add "locale" parameter to ttk::entry::(WordBack|WordForward)
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 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 } |