combo-table

Vocabulary

ui.gadgets.comboboxes

Class description

Class that po

Definition

USING: ui.gadgets.controls ;

IN: ui.gadgets.comboboxes

TUPLE: combo-table < table spawner ;

Methods

USING: accessors generic kernel ui.gadgets ui.gadgets.comboboxes
ui.gadgets.glass ui.gadgets.tables ui.gestures ;

M: combo-table handle-gesture
    [ M\ combo-table handle-gesture (call-next-method) drop ]
    2keep swap T{ button-down } = [
        [ spawner>> ] [
            selected-row
            [ disp-string swap set-control-value ] [ 2drop ] if
        ] [ hide-glass ] tri
    ] [ drop ] if t ;