clean-up-broken-window ( world -- )

Vocabulary

ui.private

Inputs

world

an object

Outputs

None

Definition

USING: accessors combinators.short-circuit kernel ui.backend ;

IN: ui.private

: clean-up-broken-window ( world -- )
    [
        dup { [ focused?>> ] [ grab-input?>> ] } 1&&
        [ handle>> (ungrab-input) ] [ drop ] if
    ] [ handle>> (close-window) ] bi ;