grid@ ( grid pair -- col# row )


Vocabulary
ui.gadgets.grids.private

Inputs
gridan object
pairan object


Outputs
col#an object
rowan object


Definition
USING: accessors kernel sequences ;

IN: ui.gadgets.grids.private

: grid@ ( grid pair -- col# row )
swap [ first2 ] [ grid>> ] bi* nth ;