USING:
    accessors io kernel sequences
    ui ui.gadgets.borders ui.gadgets.editors ui.gestures
    ;
IN: editor-gestures

TUPLE: main-gadget < border
    ;
M: main-gadget handle-gesture ( gesture gadget -- ? )
    drop gesture>string [ print flush ] when*
    t
    ;
M: main-gadget handles-gesture? ( gesture gadget -- ? )
    2drop t
    ;
: <main-gadget> ( child gap -- border )
    [ main-gadget new-border ] dip >>size
    ;
: main ( -- )
    [   <editor>
        "Why does editor pass some gestures like 'C+c' or 'C+v'"
        "on to it's parent although they were handled ?"
        "\n" glue over set-editor-string
        { 9 9 } <main-gadget> "" open-window
        ]
    with-ui
    ;
MAIN: main