(get-listener) ( quot -- listener )

Vocabulary

ui.tools.listener

Inputs

quot

an object

Outputs

listener

an object

Definition

USING: accessors kernel ui ui.gadgets ui.gadgets.editors ;

IN: ui.tools.listener

: (get-listener) ( quot -- listener )
    find-window [
        [ raise-window ] [
            gadget-child
            [ ] [ input>> scroll>caret ]
            [ input>> request-focus ] tri
        ] bi
    ] [ listener-window* ] if* ; inline