listener-thread ( listener -- )

Vocabulary

ui.tools.listener

Inputs

listener

an object

Outputs

None

Definition

USING: accessors help io kernel listener namespaces
ui.tools.browser ;

IN: ui.tools.listener

: listener-thread ( listener -- )
    dup input>> dup output>> [
        [ com-browse ] help-hook set [ input>> ] curry
        [ 2dip debugger-popup ] curry error-hook set
        error-summary? off
        introduction. listener nl
        "The listener has exited. To start it again, click 'Restart Li..."
        print
    ] with-input-output+error-streams* ;