walker-for-thread? ( thread gadget -- ? )


Vocabulary
ui.tools.walker

Inputs
threadan object
gadgetan object


Outputs
?an object


Definition
USING: accessors combinators kernel ;

IN: ui.tools.walker

: walker-for-thread? ( thread gadget -- ? )
{
{ [ dup walker-gadget? not ] [ 2drop f ] }
{ [ dup closing?>> ] [ 2drop f ] }
[ thread>> eq? ]
} cond ;