! Look for gestures which editor passes to it's parent ! and prettyprint them. ! On my Linux system ! - UP is not handled and passed as I would expect ! - DELETE is handled and not passed as I would expect but ! - C+c is handled and passed USING: accessors io kernel prettyprint ui ui.gadgets.borders ui.gadgets.editors ui.gestures ; IN: editor-gestures TUPLE: main-gadget < border ; M: main-gadget handle-gesture ( gesture gadget -- ? ) drop dup key-down? [ dup T{ key-down } = [ drop ! modifier ] [ . flush ] if ] [ drop ! not key-down ] if t ; M: main-gadget handles-gesture? ( gesture gadget -- ? ) 2drop t ; : ( child gap -- border ) [ main-gadget new-border ] dip >>size ; : main ( -- ) [ "Try copy and paste here, DELETE, and UP." over set-editor-string { 9 9 } "" open-window ] with-ui ; MAIN: main