check-ui-pages ( -- )

Vocabulary

demos.smoke-test

Inputs

None

Outputs

None

Definition

USING: combinators sequences ui ui-demo ;

IN: demos.smoke-test

:: check-ui-pages ( -- )
    sections [| section |
        section first "UI Demo: " prepend [
            section second ( -- gadget ) call-effect
            "UI Demo section" open-window
        ] check-ui-quotation
    ] each ;