steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix more cosmetic issues

db4
Slava Pestov 2009-04-03 19:50:46 -05:00
parent 695b97e6e6
commit bae7923594
3 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/gadgets/editors/editors.factor
View File

@ -141,7 +141,7 @@ M: editor ungraft*
: scroll>caret ( editor -- ) : scroll>caret ( editor -- )
dup graft-state>> second [ 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 ] keep scroll>rect
] [ drop ] if ; ] [ drop ] if ;

1
basis/ui/gadgets/scrollers/scrollers.factor
View File

@ -54,7 +54,6 @@ M: viewport pref-dim* gadget-child pref-viewport-dim ;
2dup control-value = [ 2drop ] [ set-control-value ] if ; 2dup control-value = [ 2drop ] [ set-control-value ] if ;
: (scroll>rect) ( rect scroller -- ) : (scroll>rect) ( rect scroller -- )
[ [ loc>> ] [ dim>> { 1 1 } v+ ] bi <rect> ] dip
{ {
[ scroller-value vneg offset-rect ] [ scroller-value vneg offset-rect ]
[ viewport>> dim>> rect-min ] [ viewport>> dim>> rect-min ]

1
basis/ui/tools/listener/completion/completion.factor
View File

@ -141,6 +141,7 @@ GENERIC# accept-completion-hook 1 ( item popup -- )
t >>selection-required? t >>selection-required?
t >>single-click? t >>single-click?
30 >>min-cols 30 >>min-cols
10 >>min-rows
10 >>max-rows 10 >>max-rows
dup '[ _ accept-completion ] >>action ; dup '[ _ accept-completion ] >>action ;