For various reasons I need to define some controls in my Manipulate
with complex behaviors that are not (or at least I don't think can be) accomplished using the simple default syntax for Manipulate
controls.
Thanks to some answers here, I have controls that support thee behaviors, but
- I can't get them to appear in my
Manipulate
aligned and labeled like the default controls, and - one of the controls does not update its displayed value when I click on it.
For example with
Manipulate[
Row@start,
{{r2, "q", "R2"}, {"p", "m", "q", "y", "z"}, ControlType -> SetterBar, Appearance -> "Palette"},
{{r3, "z", "Label R3"}, {"p", "m", "q", "y", "z"}, ControlType -> SetterBar, Appearance -> "Palette"},
{{r4, "-"}, ControlType -> None},
Row[{
SetterBar[
Dynamic[r4, If[# != "-", n = 4; start = Take[Join[start, {"A"}], n], n = 3; start = Take[start, n]] &],
{"\[Beta]", "\[Gamma]", "-"},
Appearance -> "Palette"]
}],
Column[{Dynamic[pop /@ Range[n] // Row, TrackedSymbols :> {n}]}], {x,None}, {n, None}, {start, None},
Initialization :> (pop[i_] := With[{j = i}, PopupMenu[Dynamic[start[[j]]], CharacterRange["A", "Z"], ImageSize -> {45, 19}]]; start = ConstantArray["A", 3]; n = 3;)
]
I get
in which
- the controls for
r4
and the popup menus lack labels and do not align with the other (default style) controls, and - the
r4
control does not reflect changes in the value of the variable.
How can I get these "custom" controls to appear and behave correctly in my Manipulate
?
If there's a solution that uses "default" Manipulate
control specification that I'm missing, that would be great, as would a solution that allows me to specify define and reuse a custom control (I have several that are similar to the popup control in that they involve several popups).