<escape-string-editor> ( source-model quot: ( str -- str' ) -- editor )

Vocabulary

escape-strings.ui

Inputs

source-model	an object
quot	a quotation with stack effect ( str -- str' )

Outputs

editor

an object

Definition

USING: accessors kernel ui.gadgets.editors ;

IN: escape-strings.ui

: <escape-string-editor>
    ( source-model quot: ( str -- str' ) -- editor )
    escape-string-editor new-editor swap >>quot
    swap >>source-model ;