escape-string-ui ( -- )

Vocabulary

escape-strings.ui

Inputs

None

Outputs

None

Definition

USING: accessors kernel ui ui.gadgets.worlds ;

IN: escape-strings.ui

: escape-string-ui ( -- )
    [
        f
        T{ world-attributes
            { title "Escape String Editor" }
            { pref-dim { 600 700 } }
        }
        clone
        <escape-string-ui>
        >>gadgets
        open-window
    ] with-ui ;