ui.gadgets.editors: fix off-by-one.

2020-05-27 11:50:04 -07:00 · 2020-05-27 11:50:04 -07:00 · 82a34fe4b8
parent c781933d6b
commit 82a34fe4b8
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@ -577,7 +577,7 @@ TUPLE: multiline-editor < editor ;
    dup editor-caret first page-elt ;

 : next-page-elt ( editor -- editor element )
-    dup [ control-value length ] [ editor-caret first ] bi - page-elt ;
+    dup [ control-value length 1 - ] [ editor-caret first ] bi - page-elt ;

 PRIVATE>