quot-action ( interactor -- lines )

Vocabulary

ui.tools.listener

Inputs

interactor

an object

Outputs

lines

an object

Definition

USING: accessors kernel listener ui.gadgets ui.gadgets.editors
ui.tools.listener.history ;

IN: ui.tools.listener

: quot-action ( interactor -- lines )
    [ history>> history-add drop ] [ control-value ]
    [ select-all ] tri parse-lines-interactive ;