window-controls-demo ( -- )

Vocabulary

window-controls-demo

Inputs

None

Outputs

None

Definition

USING: accessors assocs kernel locals.backend sequences ui ;

IN: window-controls-demo

: window-controls-demo ( -- )
    attributes-template V{ } clone window-control-sets-to-test [
        4 load-locals f -2 get-local -3 get-local >>title
        0 get-local >>window-controls open-window*
        -1 get-local >>windows -1 get-local push 4 drop-locals
    ] 2with assoc-each ;