diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-14 22:15:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-14 22:15:10 (GMT) |
| commit | abc232173f3047e842ac38f26ec31e3a4acafc77 (patch) | |
| tree | e0c1db7502dba9abf25d1a5619a326a2ed208c3c | |
| parent | 21858bdc27939c88f98879dbcdfeae1d08c41cfe (diff) | |
| download | tk-abc232173f3047e842ac38f26ec31e3a4acafc77.zip tk-abc232173f3047e842ac38f26ec31e3a4acafc77.tar.gz tk-abc232173f3047e842ac38f26ec31e3a4acafc77.tar.bz2 | |
variable "State" no longer necessary
| -rw-r--r-- | library/ttk/entry.tcl | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl index b0fdff1..3d2ef90 100644 --- a/library/ttk/entry.tcl +++ b/library/ttk/entry.tcl @@ -257,7 +257,6 @@ proc ttk::entry::NextWord {w start} { if {[winfo class $w] eq "TEntry" && [$w cget -show] ne ""} { return end } - variable State set pos [tk::endOfWord [$w get] [$w index $start]] if {$pos >= 0} { set pos [tk::startOfNextWord [$w get] $pos] @@ -277,7 +276,6 @@ proc ttk::entry::SelectNextWord {w start} { if {[winfo class $w] eq "TEntry" && [$w cget -show] ne ""} { return end } - variable State set pos [tk::endOfWord [$w get] [$w index $start]] if {$pos < 0} { return end |