diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 07:36:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 07:36:16 (GMT) |
| commit | 075429fc2cc7afc986bc3839feacf935c89ccbc7 (patch) | |
| tree | 974fdecf07326f588f07e04256d91c98b2fde350 /library/spinbox.tcl | |
| parent | 26d2f8ec042c3a1c076a64a8651aa88294ff6a0f (diff) | |
| download | tk-075429fc2cc7afc986bc3839feacf935c89ccbc7.zip tk-075429fc2cc7afc986bc3839feacf935c89ccbc7.tar.gz tk-075429fc2cc7afc986bc3839feacf935c89ccbc7.tar.bz2 | |
Use consistant $idx < 0 in stead of $idx != -1 for checking index meaning 'not found'
Diffstat (limited to 'library/spinbox.tcl')
| -rw-r--r-- | library/spinbox.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/spinbox.tcl b/library/spinbox.tcl index f5a2ad3..2b387d2 100644 --- a/library/spinbox.tcl +++ b/library/spinbox.tcl @@ -483,10 +483,10 @@ proc ::tk::spinbox::MouseSelect {w x {cursor {}}} { word { if {$cur < [$w index anchor]} { set before [tcl_wordBreakBefore [$w get] $cur] - set after [tcl_wordBreakAfter [$w get] [expr {$anchor-1}]] + set after [tcl_wordBreakAfter [$w get] $anchor-1] } else { set before [tcl_wordBreakBefore [$w get] $anchor] - set after [tcl_wordBreakAfter [$w get] [expr {$cur - 1}]] + set after [tcl_wordBreakAfter [$w get] $cur-1] } if {$before < 0} { set before 0 |