Minor fix for caret scroll to

slava 2006-09-29 23:01:08 +00:00
parent 83d4887189
commit 271d0e30f3
1 changed files with 1 additions and 1 deletions

View File

@ -116,7 +116,7 @@ M: editor model-changed
rot first rot line>y 2array ;
: caret-dim ( editor -- dim )
line-height 0 swap 2array ;
line-height 1 swap 2array ;
: caret-rect ( editor -- dim )
dup caret-loc swap caret-dim <rect> ;