 
 M: grid-gadget draw-gadget*
     {
+        [ draw-hint ]
         [ cells>> #mines-remaining ]
         [ draw-mines ]
         [ draw-smiley ]

! Copyright (C) 2017 John Benediktsson
! See http://factorcode.org/license.txt for BSD license

USING: accessors arrays assocs calendar colors.constants
combinators combinators.short-circuit destructors formatting fry
images.loader kernel locals math math.order math.parser
namespaces opengl opengl.textures random sequences timers ui
ui.commands ui.gadgets ui.gadgets.toolbar ui.gadgets.tracks
ui.gadgets.worlds ui.gestures ui.pens.solid ui.render words ;

IN: minesweeper


        } case >>state drop t
    ] [ f ] if* ;

TUPLE: grid-gadget < gadget cells timer textures start end hint? ;

:: <grid-gadget> ( rows cols mines -- gadget )
    grid-gadget new
