smalltalk-listener ( -- )

Vocabulary

smalltalk.listener

Inputs

None

Outputs

None

Definition

USING: colors io io.styles kernel ;

IN: smalltalk.listener

: smalltalk-listener ( -- )
    "Smalltalk>" { { background COLOR: light-blue } } format
    bl flush readln
    [ eval-interactively smalltalk-listener ] when* ;