Minor fix for caret scroll to
parent
83d4887189
commit
271d0e30f3
|
|
@ -116,7 +116,7 @@ M: editor model-changed
|
||||||
rot first rot line>y 2array ;
|
rot first rot line>y 2array ;
|
||||||
|
|
||||||
: caret-dim ( editor -- dim )
|
: caret-dim ( editor -- dim )
|
||||||
line-height 0 swap 2array ;
|
line-height 1 swap 2array ;
|
||||||
|
|
||||||
: caret-rect ( editor -- dim )
|
: caret-rect ( editor -- dim )
|
||||||
dup caret-loc swap caret-dim <rect> ;
|
dup caret-loc swap caret-dim <rect> ;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue