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

    textures>> [ load-image { 0 0 } <texture> ] cache
    [ dim>> [ 2 /i ] map ] [ draw-scaled-texture ] bi ;

:: draw-mines ( n gadget -- )
    gadget cells>> won? 0 n ? "%03d" sprintf [
        26 * 3 + 6 2array [

        mines place-mines update-counts >>cells
        H{ } clone >>textures
        dup '[ _ relayout-1 ] f 1 seconds <timer> >>timer
        COLOR: gray <solid> >>interior
        "12345" <circular> >>hint? ;

M: grid-gadget graft*
    [ timer>> start-timer ] [ call-next-method ] bi ;
