Отрегулируйте размер кнопки TogglerBar в Mathematica

Можно ли настроить размер / шрифт TogglerBar так, чтобы все они были одинаково большими в случае разного размера имени.

Ниже приведен пример решения, предложенного Велизарием для: «Можно ли использовать TogglerBar как несколько CheckBox в Mathematica?»

Я хотел бы, чтобы каждая кнопка была одинакового размера.

Manipulate[Graphics[
{
{White, Circle[{5, 5}, r]},(*For Mma 7 compatibility*)
If[MemberQ[whatToDisplay, "I am a Circle"],
{Red, Circle[{5, 5}, r]}],
If[MemberQ[whatToDisplay, "and I am a very nice Square"], {Blue,
Rectangle[{5, 5}, {r, r}]}],
If[MemberQ[whatToDisplay, "Other"], {Black,
 Line[Tuples[{3, 4}, 2]]}]
},
PlotRange -> {{0, 20}, {0, 10}}
],
{{r, 1, Style["Radius", Black, Bold, 12]}, 1, 5, 1,
ControlType -> Slider,
ControlPlacement -> Top},  
Control@{{whatToDisplay, True,
Style["What", Black, Bold, 12]}, {"I am a Circle",
"and I am a very nice Square", "Other"},
ControlType -> TogglerBar,
Appearance -> "Horizontal",
ControlPlacement -> Top}]

EDIT : Это действительно некрасиво в коде (если мы все еще можем назвать это кодом), но выглядит хорошо на дисплее.