diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-11 20:32:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-11 20:32:37 (GMT) |
| commit | 11769f5c46a422bee9ac737b4a70d390e6bab012 (patch) | |
| tree | d03cfd0e97871fbb237de8b5518f7f18522b3aba /library/ttk | |
| parent | 6b77225dcafc4523a84678f1d420e64b3759a405 (diff) | |
| download | tk-11769f5c46a422bee9ac737b4a70d390e6bab012.zip tk-11769f5c46a422bee9ac737b4a70d390e6bab012.tar.gz tk-11769f5c46a422bee9ac737b4a70d390e6bab012.tar.bz2 | |
Make use of TIP #577 in entry/ttk::entry
Diffstat (limited to 'library/ttk')
| -rw-r--r-- | library/ttk/entry.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl index 486b556..db53e72 100644 --- a/library/ttk/entry.tcl +++ b/library/ttk/entry.tcl @@ -281,8 +281,8 @@ proc ttk::entry::PrevWord {w start} { # proc ttk::entry::RelIndex {w where {index insert}} { switch -- $where { - prevchar { expr {[$w index $index] - 1} } - nextchar { expr {[$w index $index] + 1} } + prevchar { return [$w index $index]-1 } + nextchar { return [$w index $index]+1 } prevword { PrevWord $w $index } nextword { NextWord $w $index } home { return 0 } |