init-input/output ( listener -- listener )

Vocabulary

ui.tools.listener

Inputs

listener

an object

Outputs

listener

an object

Definition

USING: accessors kernel ui.gadgets.panes ;

IN: ui.tools.listener

: init-input/output ( listener -- listener )
    <interactor>
    [ >>input ] [ pane new-pane t >>scrolls? >>output ] bi
    dup listener-streams >>output drop ;