output-model ( gadget -- model )

Vocabulary

ui.gadgets.controls

Inputs

gadget

a gadget

Outputs

model

a model

Word description

Returns the model a gadget uses for output. Often the same as model>>

Definition

IN: ui.gadgets.controls

GENERIC: output-model ( gadget -- model )

Methods

USING: accessors ui.gadgets ui.gadgets.controls ;

M: gadget output-model model>> ;


USING: accessors ui.gadgets.controls ;

M: model-field output-model model*>> ;


USING: accessors sequences ui.gadgets.controls
ui.gadgets.scrollers ;

M: scroller output-model
    viewport>> children>> first output-model ;


USING: accessors models.range ui.gadgets.controls
ui.gadgets.sliders ;

M: slider output-model model>> range-model ;


USING: accessors kernel ui.gadgets.controls ;

M: table output-model
    dup val-quot>> [ selection>> ] [ selection-index>> ] if ;