check-submenus ( -- )

Vocabulary

demos.smoke-test

Inputs

None

Outputs

None

Definition

USING: combinators kernel sequences ui vocabs words ;

IN: demos.smoke-test

: check-submenus ( -- )
    { "nehe.2" "nehe.3" "nehe.4" "nehe.5" } [ check-ui-demo ]
    each "bubble-chamber" require {
        "original"
        "small"
        "medium"
        "large"
        "hadron-chamber"
        "quark-chamber"
        "muon-chamber"
        "ten-hadrons"
        "original-big-bang"
        "original-big-bang-variant"
    } [
        dup "Bubble Chamber: " prepend swap '[
            _ "bubble-chamber" lookup-word ( -- ) execute-effect
        ] check-ui-quotation
    ] each "Joystick indicators" [
        "game.input.demos.joysticks" require
        "<axis-gadget>" "game.input.demos.joysticks" lookup-word
        ( -- gadget ) execute-effect
        "Joystick indicators" open-window
    ] check-ui-quotation "OpenGL triangle" [
        "opengl.demos.gl4" require
        "gl4demo" "opengl.demos.gl4" lookup-word
        ( -- ) execute-effect
    ] check-ui-quotation ;