select-at ( point list -- )

Vocabulary

ui.gadgets.lists

Inputs

point	an object
list	an object

Outputs

None

Definition

USING: accessors kernel ui.gadgets ;

IN: ui.gadgets.lists

: select-at ( point list -- )
    [ dim>> clamp-loc ] keep [ pick-up ] keep select-gadget ;