         mines place-mines update-counts >>cells
         H{ } clone >>textures
         dup '[ _ relayout-1 ] f 1 seconds <timer> >>timer
-        COLOR: gray <solid> >>interior ;
+        COLOR: gray <solid> >>interior
+        "12345" <circular> >>hint? ;
 
 M: grid-gadget graft*
     [ timer>> start-timer ] [ call-next-method ] bi ;

        ] unless
    ] when gadget relayout-1 ;

: new-game ( gadget rows cols mines -- )
    [ make-cells ] dip place-mines update-counts >>cells
    f >>start f >>end relayout-window ;

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

USING: accessors arrays assocs calendar circular
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

