label-from-button ( button -- str/f )

Vocabulary

ui.tools.button-list

Inputs

button

an object

Outputs

str/f

an object

Definition

USING: accessors kernel sequences ui.gadgets.labels ;

IN: ui.tools.button-list

: label-from-button ( button -- str/f )
    children>> [ label? ] find swap [ text>> ] [ drop f ] if ;