<escape-string-ui> ( -- gadget )

Vocabulary

escape-strings.ui

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors checksums.sha escape-strings kernel ui.gadgets
ui.gadgets.editors ui.gadgets.labeled ui.gadgets.scrollers
ui.gadgets.tracks ;

IN: escape-strings.ui

:: <escape-string-ui> ( -- gadget )
    vertical <track> 1 >>fill { 10 10 } >>gap
    <source-editor> dup model>> :> source-model <scroller>
    "Plain Text" <labeled-gadget> 1/4 track-add source-model
    [ number-escape-string ] <escape-string-editor>
    <scroller> "Number Escape" <labeled-gadget> 1/4 track-add
    source-model [ escape-string ] <escape-string-editor>
    <scroller> "Escape" <labeled-gadget> 1/4 track-add
    source-model
    [ sha-256 checksum-escape-string ] <escape-string-editor>
    <scroller> "SHA256 Escape" <labeled-gadget> 1/4 track-add ;