button-pressed? ( button -- ? )

Vocabulary

ui.gadgets.buttons.private

Inputs

button

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit kernel ;

IN: ui.gadgets.buttons.private

: button-pressed? ( button -- ? )
    { [ mouse-clicked? ] [ button-rollover? ] } 1&&
    buttons-down? and ;