Is it possible to use some "Previous-Next" Buttons instead of a slider as in the example Below when the controlled value is discrete ?

I found the Manipulator one quite ugly and would like some Setter type ones if it is possible.

```
Manipulate[
           Graphics[
                    {
                     Rectangle[{1, 1}, {3, 3}],
                      Circle[{where, 2}, 1]
                    }, 
                     PlotRange -> {{0, 11}, {0, 3}}, ImageSize -> {300, 60}
                    ],
           {where, 1, 10, 1, Slider}
          ]

```

![enter image description here](https://i.stack.imgur.com/8Hz1c.png)