diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/text.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/text.tcl b/library/text.tcl index 468696b..822f8e6 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -912,7 +912,7 @@ proc ::tk::TextUpDownLine {w n} { set lines [$w count -displaylines $Priv(textPosOrig) $i] set new [$w index \ "$Priv(textPosOrig) + [expr {$lines + $n}] displaylines"] - if {[$w compare $new == end] \ + if {[$w compare $new == "end - 1 display char"] \ || [$w compare $new == "insert display linestart"]} { set new $i } |