Dragging up too far would cause the editor gadget to throw an error

2006-07-23 19:58:15 +00:00 · 2006-07-23 19:58:15 +00:00 · f7820c999c
parent 707d59d366
commit f7820c999c
1 changed files with 1 additions and 1 deletions
--- a/library/ui/text/editor.factor
+++ b/library/ui/text/editor.factor
@ -79,7 +79,7 @@ M: editor model-changed ( editor -- )
    [ drop r> length ] [ r> drop ] if ;

 : y>line ( y editor -- line# )
-    [ line-height / >fixnum ] keep editor-lines length 1- min ;
+    [ line-height / >fixnum ] keep control-model validate-line ;

 : point>loc ( point editor -- loc )
    over second over y>line [