(print-input) ( object -- )

Vocabulary

ui.tools.listener

Inputs

object

an object

Outputs

None

Definition

IN: ui.tools.listener

GENERIC: (print-input) ( object -- )

Methods

USING: accessors hashtables io io.styles kernel namespaces
ui.tools.listener ;

M: input (print-input)
    dup presented associate
    [ string>> listener-input-style get-global format ]
    with-nesting nl ;


USING: io.styles namespaces prettyprint ui.tools.listener words
;

M: word (print-input)
    "Command: " listener-word-style get-global format . ;