check-themed-demos ( names -- )

Vocabulary

demos.smoke-test

Inputs

names

an object

Outputs

None

Definition

USING: accessors io sequences ui ui.gadgets.labels ui.theme
ui.theme.switching ;

IN: demos.smoke-test

:: check-themed-demos ( names -- )
    { light-theme dark-theme } [| selected-theme |
        close-all-windows selected-theme switch-theme
        selected-theme name>> print
        flush "Checking theme..." <label> "Demo smoke tests"
        open-window names check-graphical-demos
    ] each ;