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

Vocabulary

ui.gadgets.search-tables

Inputs

search-field

an object

Outputs

button

an object

Definition

USING: kernel ui.gadgets.buttons ;

IN: ui.gadgets.search-tables

: <clear-button> ( search-field -- button )
    [ "ⓧ" ] dip [ [ drop ] ] dip [ clear-search-field ] curry
    compose <roll-button> ;