Handbook Glossary
factorcode.org
lookup-button-pen ( button pen -- button pen )


Vocabulary
ui.gadgets.buttons

Inputs
buttonan object
penan object


Outputs
buttonan object
penan 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 ;