Fix more cosmetic issues
parent
695b97e6e6
commit
bae7923594
|
@ -141,7 +141,7 @@ M: editor ungraft*
|
|||
: scroll>caret ( editor -- )
|
||||
dup graft-state>> second [
|
||||
[
|
||||
[ caret-loc ] [ caret-dim { 1 0 } v+ ] bi <rect>
|
||||
[ caret-loc ] [ caret-dim { 2 1 } v+ ] bi <rect>
|
||||
] keep scroll>rect
|
||||
] [ drop ] if ;
|
||||
|
||||
|
|
|
@ -54,7 +54,6 @@ M: viewport pref-dim* gadget-child pref-viewport-dim ;
|
|||
2dup control-value = [ 2drop ] [ set-control-value ] if ;
|
||||
|
||||
: (scroll>rect) ( rect scroller -- )
|
||||
[ [ loc>> ] [ dim>> { 1 1 } v+ ] bi <rect> ] dip
|
||||
{
|
||||
[ scroller-value vneg offset-rect ]
|
||||
[ viewport>> dim>> rect-min ]
|
||||
|
|
|
@ -141,6 +141,7 @@ GENERIC# accept-completion-hook 1 ( item popup -- )
|
|||
t >>selection-required?
|
||||
t >>single-click?
|
||||
30 >>min-cols
|
||||
10 >>min-rows
|
||||
10 >>max-rows
|
||||
dup '[ _ accept-completion ] >>action ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue