17 lines
400 B
Factor
17 lines
400 B
Factor
|
! Copyright (C) 2009 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: accessors ui.gadgets.scrollers ;
|
||
|
|
IN: ui.tools.common
|
||
|
|
|
||
|
|
: com-page-up ( tool -- )
|
||
|
|
scroller>> scroll-up-page ;
|
||
|
|
|
||
|
|
: com-page-down ( tool -- )
|
||
|
|
scroller>> scroll-down-page ;
|
||
|
|
|
||
|
|
: com-scroll-up ( tool -- )
|
||
|
|
scroller>> scroll-up-line ;
|
||
|
|
|
||
|
|
: com-scroll-down ( tool -- )
|
||
|
|
scroller>> scroll-down-line ;
|