         { T{ button-up { # 1 } } [ on-click ] }
         { T{ button-up { # 3 } } [ on-mark ] }
         { T{ key-down { sym " " } } [ on-mark ] }
-        { T{ key-down { sym "x" } } [ on-x ] }
-        { T{ key-down { sym "y" } } [ on-y ] }
-        { T{ key-down { sym "z" } } [ on-z ] }
         { motion [ relayout-1 ] }
     } assoc-union
 ] change-word-prop

    [ dim>> [ 2 /i ] map ] [ draw-scaled-texture ] bi ;

:: draw-hint ( gadget -- )
    gadget hint?>> t eq? [
        gadget hand-rel first2 :> ( w h )
        h 58 >= [
            h 58 - w [ 32 /i ] bi@ :> ( row col )

        ] 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 ;
