<border-button-state-pen> ( prefix background foreground -- pen )

Vocabulary

ui.gadgets.buttons.private

Inputs

prefix	an object
background	an object
foreground	an object

Outputs

pen

an object

Definition

USING: kernel sequences ui.pens.tile ui.theme.images ;

IN: ui.gadgets.buttons.private

: <border-button-state-pen>
    ( prefix background foreground -- pen )
    [
        "-left" "-middle" "-right"
        [ append theme-image ] tri-curry@ tri
    ] 2dip <tile-pen> ;