draw-smiley ( gadget -- )

Vocabulary

minesweeper

Inputs

gadget

an object

Outputs

None

Definition

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

IN: minesweeper

:: draw-smiley ( gadget -- )
    gadget pref-dim first :> width width 2/ 26 - 3 2array [
        gadget cells>> [ won? ] [ lost? ] bi
        hand-buttons get-global empty? not gadget hand-click-rel
        [ second 58 >= ] [ f ] if* and smiley-image-path
        gadget draw-cached-texture
    ] with-translation ;