on-drag ( gadget -- )

Vocabulary

game-of-life

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel math math.order namespaces sequences
ui.gadgets ui.gestures ;

IN: game-of-life

:: on-drag ( gadget -- )
    gadget size>> :> size gadget grid>> grid-dim
    :> ( rows cols ) gadget hand-rel first2 [ size /i ] bi@
    :> ( i j ) i 0 cols 1 - between? j 0 rows 1 - between? and
    [ last-click get i j gadget grid>> nth set-nth ] when
    gadget relayout-1 ;