Minor fix for caret scroll to
parent
83d4887189
commit
271d0e30f3
|
|
@ -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> ;
|
||||
|
|
|
|||
Loading…
Reference in New Issue