Adjust TogglerBar button size in Mathematica <p>Is it possible to adjust the size/font of the TogglerBar, so that they are all equally large in case of different name size.</p> <p>The example below is the solution proposed by Belisarius for : <a href="http://stackoverflow.com/questions/6299215/can-togglerbar-be-used-as-multiple-checkbox-in-mathematica">"Can TogglerBar be used as multiple CheckBox in Mathematica ?"</a></p> <p>I would like each Button to be equally sized.</p> <pre><code>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 -&gt; {{0, 20}, {0, 10}} ], {{r, 1, Style["Radius", Black, Bold, 12]}, 1, 5, 1, ControlType -&gt; Slider, ControlPlacement -&gt; Top}, Control@{{whatToDisplay, True, Style["What", Black, Bold, 12]}, {"I am a Circle", "and I am a very nice Square", "Other"}, ControlType -&gt; TogglerBar, Appearance -&gt; "Horizontal", ControlPlacement -&gt; Top}] </code></pre> <p><img src="https://i.stack.imgur.com/Nm6cb.png" alt="enter image description here"></p> <p><strong>EDIT</strong> : It is trully ugly in the code (if we can still call that a code) but looks good on display.</p> <p><img src="https://i.stack.imgur.com/vwbTR.png" alt="enter image description here"></p> <p><img src="https://i.stack.imgur.com/Hz0Xa.png" alt="enter image description here"></p>