extend-selection ( pane -- )

Vocabulary

ui.gadgets.panes.private

Inputs

pane

an object

Outputs

None

Definition

USING: accessors combinators kernel namespaces ui.gadgets
ui.gestures ;

IN: ui.gadgets.panes.private

: extend-selection ( pane -- )
    hand-moved? [
        [
            dup selecting?>>
            [ hand-loc get-global move-caret ] [
                dup hand-clicked get-global child? [
                    t >>selecting? {
                        ~quotation~
                        ~quotation~
                        ~quotation~
                        ~quotation~
                    } cleave
                ] [ drop ] if
            ] if
        ] [ scroll-selection-pointer ] bi
    ] [ drop ] if ;