Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-11-08 18:29:22 -06:00
commit 98487c630e
2 changed files with 2 additions and 2 deletions

View File

@ -97,7 +97,7 @@ M: list focusable-child* drop t ;
] if ;
: select-gadget ( gadget list -- )
swap over children>> index
tuck children>> index
[ swap select-index ] [ drop ] if* ;
: clamp-loc ( point max -- point )

View File

@ -41,7 +41,7 @@ scroller H{
dup model>> dependencies>> first <x-slider> >>x dup x>> @bottom grid-add
dup model>> dependencies>> second <y-slider> >>y dup y>> @right grid-add
swap over model>> <viewport> >>viewport
tuck model>> <viewport> >>viewport
dup viewport>> @center grid-add ;
: <scroller> ( gadget -- scroller ) scroller new-scroller ;