add-listener-area ( listener -- listener )


Vocabulary
ui.tools.listener

Inputs
listeneran object


Outputs
listeneran object


Definition
USING: accessors kernel ui.gadgets.scrollers ui.gadgets.tracks
ui.tools.common ;

IN: ui.tools.listener

: add-listener-area ( listener -- listener )
dup output>> margins <scroller> >>scroller
dup scroller>> white-interior 1 track-add ;