lookup-button-pen ( button pen -- button pen )

Vocabulary

ui.gadgets.buttons

Inputs

button	an object
pen	an object

Outputs

button	an object
pen	an object

Definition

USING: accessors combinators combinators.short-circuit kernel
ui.gadgets.buttons.private ;

IN: ui.gadgets.buttons

: lookup-button-pen ( button pen -- button pen )
    over find-button {
        {
            [ dup { [ pressed?>> ] [ selected?>> ] } 1&& ]
            [ drop pressed-selected>> ]
        }
        { [ dup pressed?>> ] [ drop pressed>> ] }
        { [ dup selected?>> ] [ drop selected>> ] }
        { [ dup button-rollover? ] [ drop rollover>> ] }
        [ drop plain>> ]
    } cond ;