check-graphical-demos ( names -- )

Vocabulary

demos.smoke-test

Inputs

names

an object

Outputs

None

Definition

USING: kernel sequences ;

IN: demos.smoke-test

: check-graphical-demos ( names -- )
    dup empty? [
        drop graphical-demos [ check-ui-demo ] each
        check-ui-pages check-submenus
    ] [ [ check-ui-demo ] each ] if ;