<combobox> ( options -- combobox )

Vocabulary

ui.gadgets.comboboxes

Inputs

options

a sequence of strings

Outputs

combobox

an object

Word description

Creates a combo box from a list of strings.

Definition

USING: accessors arrays fonts kernel models.combinators
namespaces sequences ui.gadgets.controls ui.gadgets.labels
ui.pens.solid ui.tools.common ;

IN: ui.gadgets.comboboxes

: <combobox> ( options -- combobox )
    [
        first [ combobox new-label ] [ disp-string <basic> ] bi
        >>model
    ] keep <basic> combo-table new-table white-interior
    [ 1array ] >>quot >>table
    default-font-foreground-color get <solid> >>boundary ;