<clear-button> ( search-field -- button )

Vocabulary

ui.gadgets.search-tables

Inputs

search-field

an object

Outputs

button

an object

Definition

USING: accessors kernel ui.gadgets.buttons ui.pens ;

IN: ui.gadgets.search-tables

: <clear-button> ( search-field -- button )
    [ f ] dip [ [ drop ] ] dip [ clear-search-field ] curry
    compose <button> <clear-button-pen> >>interior
    dup dup interior>> pen-pref-dim >>min-dim ;