on-click ( gadget -- )

Vocabulary

minesweeper

Inputs

gadget

an object

Outputs

None

Definition

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

IN: minesweeper

:: on-click ( gadget -- )
    gadget hand-rel first2 :> ( w h ) h 58 < [
        h 3 55 between? gadget pref-dim first 2/ w - abs 26 <
        and [
            gadget [ reset-cells ] change-cells f >>start
            f >>end drop
        ] when
    ] when gadget [ click-cell-at ] on-grid ;