scroll-selection-pointer ( pane -- )

Vocabulary

ui.gadgets.panes.private

Inputs

pane

an object

Outputs

None

Definition

USING: kernel math.rectangles math.vectors namespaces ui.gadgets
ui.gadgets.scrollers ui.gestures ;

IN: ui.gadgets.panes.private

: scroll-selection-pointer ( pane -- )
    hand-loc get-global over screen-loc v- { 1 1 } <rect>
    swap scroll>rect ;