hand-rel-cell ( gadget -- cellpos )

Vocabulary

gamelib.ui

Inputs

gadget

an object

Outputs

cellpos

an object

Definition

USING: math sequences ui.gestures ;

IN: gamelib.ui

:: hand-rel-cell ( gadget -- cellpos )
    gadget hand-rel first2 :> ( w h ) 0 gadget
    get-cell-dimension first2 :> ( cw ch ) w cw /i
    :> row h ch /i :> col row col { } 2sequence ;