(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: accessors kernel ui.tools.listener
ui.tools.listener.private ;

M: listener-input-command (print-input)
    [ input>> (print-input) ] [ command>> (print-input) ] bi ;


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

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