<clear-button-pen> ( -- pen )

Vocabulary

ui.gadgets.search-tables

Inputs

None

Outputs

pen

an object

Definition

USING: kernel ui.gadgets.buttons ui.pens.image ui.theme.images ;

IN: ui.gadgets.search-tables

: <clear-button-pen> ( -- pen )
    "clear-button" theme-image <image-pen> dup
    "clear-button-clicked" theme-image <image-pen> dup dup
    <button-pen> ;