Someone

menu * {
  .Minesweeper { 
    /window -pdB +d @minesweeper 
    var %x = 0 
    while (%x <= 15) { drawreplace @minesweeper $iif(%x < 10,0 $+ %x,%x) 02
    inc %x }
    /drawrect @minesweeper 0 3 830 10 20 20
    /drawdot @minesweeper 7 5 40 40
    /drawline @minesweeper 12 4 78 140 140 78
    /drawfill -s @minesweeper 0 2 840 20 
    /drawline @minesweeper 04 4 832 12 847 27
    /drawline @minesweeper 04 4 832 27 847 12
  }
}
menu @minesweeper {
  mouse { 
    /drawreplace @minesweeper 04 2 150 150 
    /drawtext @minesweeper 4 2 150 150 mouse moved to $mouse.x $mouse.y 
  }
  sclick {
    if ($inrect($mouse.x,$mouse.y,830,10,20,20)) {
      /window -c @minesweeper
    }
  }
}