From 4b392d3f1625c5640b4a73024d99d89dd180380e Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 30 Jan 2024 12:39:27 +0000
Subject: Add "locale" parameter to ttk::entry::(WordBack|WordForward)

---
 library/ttk/entry.tcl | 8 ++++----
 1 file 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
 }
 
-- 
cgit v0.12