model-field

Vocabulary

ui.gadgets.controls

Definition

USING: ui.gadgets.editors ;

IN: ui.gadgets.controls

TUPLE: model-field < field model* ;

Methods

USING: accessors kernel models ui.gadgets ui.gadgets.controls
ui.gadgets.editors ;

M: model-field graft*
    [ [ model*>> value>> ] [ editor>> ] bi set-editor-string ]
    [ dup editor>> model>> add-connection ]
    [ dup model*>> add-connection ] tri ;


USING: accessors kernel models ui.gadgets.controls
ui.gadgets.editors ;

M: model-field model-changed
    2dup model*>> =
    [ [ value>> ] [ editor>> ] bi* set-editor-string ]
    [ nip [ editor>> editor-string ] [ model*>> ] bi set-model ]
    if ;


USING: accessors ui.gadgets.controls ;

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


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

M: model-field ungraft*
    [ dup editor>> model>> remove-connection ]
    [ dup model*>> remove-connection ] bi ;