<theme-pen> ( -- theme-pen )

Vocabulary

ui.pens.theme

Inputs

None

Outputs

theme-pen

an object

Definition

USING: accessors kernel ui.theme ;

IN: ui.pens.theme

: <theme-pen> ( -- theme-pen )
    theme-pen new [ content-background ] >>background
    [ text-color ] >>foreground ;