¿Es posible ajustar el tamaño/fuente de TogglerBar, de forma que todos sean igualmente grandes en caso de tener un tamaño de nombre diferente?Ajustar el tamaño del botón TogglerBar en Mathematica
El ejemplo siguiente es la solución propuesta por Belisario para: "Can TogglerBar be used as multiple CheckBox in Mathematica ?"
me gustaría cada botón para ser de igual tamaño.
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},
[email protected]{{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}]
EDITAR: Es feo apunté en el código (si es que todavía podemos llamar a eso un código), pero se ve bien en la pantalla.
+1 rellenando automáticamente todo correctamente sin contar! – acl