extend-selection ( pane -- )

Vocabulary

ui.gadgets.panes.private

Inputs

pane

an object

Outputs

None

Definition

USING: accessors kernel namespaces ui.gadgets
ui.gadgets.scrollers ui.gestures ui.traverse ;

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?
                    [ hand-clicked set-global ]
                    [ hand-click-loc get-global move-caret ]
                    [ caret>mark ] tri
                ] [ drop ] if
            ] if
        ] [ dup caret>> gadget-at-path scroll>gadget ] bi
    ] [ drop ] if ;