pen-background ( gadget pen -- color )

Vocabulary

ui.pens

Inputs

gadget	an object
pen	an object

Outputs

color

an object

Definition

IN: ui.pens

GENERIC: pen-background ( gadget pen -- color )

Methods

USING: ui.gadgets.buttons ui.pens ;

M: button-pen pen-background lookup-button-pen pen-background ;


USING: colors kernel ui.pens ui.pens.gradient ;

M: gradient pen-background 2drop transparent ;


USING: kernel ui.pens ;

M: object pen-background 2drop f ;


USING: accessors colors kernel math ui.pens ui.pens.solid ;

M: solid pen-background
    nip color>> dup alpha>> 1 number=
    [ drop transparent ] unless ;


USING: accessors kernel ui.pens ui.pens.tile ;

M: tile-pen pen-background nip background>> ;