listener-operation? ( object -- ? )

Vocabulary

ui.operations

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the listener-operation class.

Definition

USING: accessors combinators.short-circuit kernel ui.commands ;

IN: ui.operations

: listener-operation? ( object -- ? )
    dup operation?
    [ { [ command>> listener-command? ] [ listener?>> ] } 1|| ]
    [ drop f ] if ;