ui.gadgets.editors: fix off-by-one.
parent
c781933d6b
commit
82a34fe4b8
|
@ -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>
|
||||
|
||||
|
|
Loading…
Reference in New Issue