?check-popup ( interactor -- interactor )

Vocabulary

ui.tools.listener.completion

Inputs

interactor

an object

Outputs

interactor

an object

Definition

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

IN: ui.tools.listener.completion

: ?check-popup ( interactor -- interactor )
    dup popup>> [
        gadget-child dup completion-popup? [
            completion-mode>> dup code-completion? [
                over completion-mode =
                [ dup popup>> hide-glass ] unless
            ] [ drop ] if
        ] [ drop ] if
    ] when* ;