find-debugger ( gadget -- debugger/f )

Vocabulary

raylib.live-coding.smoke-test

Inputs

gadget

an object

Outputs

debugger/f

an object

Definition

USING: accessors kernel sequences ui.tools.debugger ;

IN: raylib.live-coding.smoke-test

: find-debugger ( gadget -- debugger/f )
    dup debugger?
    [ children>> [ find-debugger ] map sift ?first ] unless ;
    recursive