ui.gadgets.editors: fix page-up/page-down with one line.

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index f123f07ee317ebef3ba2f1389a5a91e38a691ac2..26805dfb75d79e0d02e2698d64940aed238bd486 100644 (file)
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@@ -570,7 +570,8 @@ TUPLE: multiline-editor < editor ;
 
 <PRIVATE
 
-: page-elt ( editor -- editor element ) dup visible-lines 1 - <page-elt> ;
+: page-elt ( editor -- editor element )
+    dup visible-lines 1 - [ 1 ] when-zero <page-elt> ;
 
 PRIVATE>