pen-foreground ( gadget pen -- color )

Vocabulary

ui.pens

Inputs

gadget	an object
pen	an object

Outputs

color

an object

Definition

IN: ui.pens

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

Methods

USING: ui.gadgets.buttons ui.pens ;

M: button-pen pen-foreground lookup-button-pen pen-foreground ;


USING: kernel ui.pens ;

M: object pen-foreground 2drop f ;


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

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