check-rendering ( gadget -- )

Vocabulary

ui.render.test

Inputs

gadget

an object

Outputs

None

Definition

USING: cap images.loader kernel namespaces sequences ;

IN: ui.render.test

: check-rendering ( gadget -- )
    screenshot
    [ render-output set-global ] [
        "vocab:ui/render/test/reference.bmp" load-image bitmap=
        "is perfect" "needs work" ? "Your UI rendering " prepend
        message-window
    ] bi ;