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

ui.gadgets.scrollers: minor cleanup using if*.

char-rename
John Benediktsson 2016-11-02 11:00:23 -07:00
parent 140d3c88c0
commit 5f38ec1a4a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -147,19 +147,19 @@ PRIVATE>
[ build-header-scroller ] [ build-scroller ] if ; [ build-header-scroller ] [ build-scroller ] if ;
: scroll>rect ( rect gadget -- ) : scroll>rect ( rect gadget -- )
dup find-scroller* dup [ dup find-scroller* [
[ relative-scroll-rect ] keep [ relative-scroll-rect ] keep
swap >>follows swap >>follows
relayout relayout
] [ 3drop ] if ; ] [ 2drop ] if* ;
: scroll>gadget ( gadget -- ) : scroll>gadget ( gadget -- )
dup find-scroller* dup [ dup find-scroller* [
swap >>follows swap >>follows
relayout relayout
] [ ] [
2drop drop
] if ; ] if* ;
: scroll>bottom ( gadget -- ) : scroll>bottom ( gadget -- )
find-scroller [ t >>follows relayout-1 ] when* ; find-scroller [ t >>follows relayout-1 ] when* ;