supervise ( -- )

Vocabulary

raylib.live-coding.smoke-test

Inputs

None

Outputs

None

Definition

USING: io io.directories kernel math namespaces system ui
ui.tools.listener vocabs.loader ;

IN: raylib.live-coding.smoke-test

: supervise ( -- )
    "Waiting for Continue restart" print
    flush "Continue" choose-restart "Continue selected" print
    flush [ frame-count get-global 40 >= ] wait-until
    t resumed? set-global
    [ reload-from-listener ] \ run call-listener
    [ reloaded? get-global ] wait-until
    "Reload completed; waiting for Close restart" print
    flush "Close window" choose-restart
    [ closed? get-global ] wait-until
    resumed? get-global t assert=
    frame-count get-global 90 assert=
    "Raylib live coding: context switching, reload, Continue, and ..."
    print flush fixture-root get-global delete-tree
    close-all-windows 0 exit ;