escape-string-editor

Vocabulary

escape-strings.ui

Definition

USING: ui.gadgets.editors ;

IN: escape-strings.ui

TUPLE: escape-string-editor < source-editor source-model quot ;

Methods

USING: accessors escape-strings.ui generic kernel models
ui.gadgets ;

M: escape-string-editor graft*
    [ dup source-model>> add-connection ]
    [ M\ escape-string-editor graft* (call-next-method) ] bi ;


USING: accessors combinators documents escape-strings.ui generic
kernel models ui.gadgets.editors ;

M: escape-string-editor model-changed
    2dup source-model>> eq? [
        [ doc-string ] dip
        [ quot>> ( str -- str' ) call-effect ]
        [ set-editor-string ] bi
    ]
    [ M\ escape-string-editor model-changed (call-next-method) ]
    if ;


USING: accessors escape-strings.ui generic kernel models
ui.gadgets ;

M: escape-string-editor ungraft*
    [ dup source-model>> remove-connection ]
    [ M\ escape-string-editor ungraft* (call-next-method) ] bi ;