raised-window ( world -- )

Vocabulary

ui.private

Inputs

world

an object

Outputs

None

Definition

USING: kernel namespaces sequences ;

IN: ui.private

: raised-window ( world -- )
    worlds get-global [ [ second eq? ] with find drop ] keep
    [ nth ] [ remove-nth! drop ] [ nip ] 2tri push ;