diff options
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 } |