grid@ ( grid pair -- col# row )

Vocabulary

ui.gadgets.grids.private

Inputs

grid	an object
pair	an object

Outputs

col#	an object
row	an object

Definition

USING: accessors kernel sequences ;

IN: ui.gadgets.grids.private

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