contents-changed ( model editor -- )

Vocabulary

ui.gadgets.editors.private

Inputs

model	an object
editor	an object

Outputs

None

Definition

USING: accessors documents kernel models ui.gadgets ;

IN: ui.gadgets.editors.private

: contents-changed ( model editor -- )
    [ caret>> swap '[ _ validate-loc ] (change-model) ]
    [ mark>> swap '[ _ validate-loc ] (change-model) ]
    [ nip relayout ] 2tri ;