I would like to change the size of some controls in a Manipulate and
also use an OpenerView.
For reference, I am looking at this nice example from about 9/10 towards
the bottom of "tutorial/AdvancedManipulateFunctionality":
Manipulate[
ParametricPlot[{a1 Sin[n1 (x + p1)], a2 Cos[n2 (x + p2)]}, {x, 0,
20 Pi}, PlotRange -> 1.1, PerformanceGoal -> "Quality",
Axes -> axes, ImageSize -> size],
OpenerView[{"Horizontal",
Column[{Control[{{n1, 1, "Frequency"}, 1, 4}],
Control[{{a1, 1, "Amplitude"}, 0, 1}],
Control[{{p1, 0, "Phase"}, 0, 2 Pi}]}, Right]}],
OpenerView[{"Vertical",
Column[{Control[{{n2, 5/4, "Frequency"}, 1, 4}],
Control[{{a2, 1, "Amplitude"}, 0, 1}],
Control[{{p2, 0, "Phase"}, 0, 2 Pi}]}, Right]}],
OpenerView[{"Plot options",
Row[{Control[{axes, {True, False}}],
Control[{{size, Medium}, {Small, Medium, Large}}]},
Spacer[20]]}], ControlPlacement -> Bottom]
1. I'd like the Control[] results to be smaller. However, Control
doesn't seem to have an option to control its ImageSize.
2. If I try to replace Control with, say, Slider for which I can control
size, it doesn't work. I don't know why it doesn't work, but it doesn't
look like it is being evaluated.
3. Even better would be to replace Control with a custom control like
the next example down in the tutorial, ValueThumbSlider.
Thanks for any explanation or solution, Craig
W Craig Carter
Professor of Materials Science, MIT