interactor-busy? ( interactor -- ? )

Vocabulary

ui.tools.listener

Inputs

interactor

an interactor

Outputs

?

a boolean

Word description

We're busy if there's no thread to resume.

Definition

USING: accessors combinators.short-circuit kernel threads ;

IN: ui.tools.listener

: interactor-busy? ( interactor -- ? )
    {
        [ waiting>> ]
        [ thread>> dup [ thread-registered? ] when ]
    } 1&& not ;