delete/backspace ( editor quot -- )

Vocabulary

ui.gadgets.editors

Inputs

editor	an object
quot	an object

Outputs

None

Definition

USING: accessors documents kernel ui.gadgets ;

IN: ui.gadgets.editors

: delete/backspace ( editor quot -- )
    over gadget-selection?
    [ drop remove-selection ] [
        [ [ [ editor-caret ] [ model>> ] bi ] dip call ]
        [ drop model>> ] 2bi remove-doc-range
    ] if ; inline