Size of Control[] and OpenerView in Manipulate

*To*: mathgroup at smc.vnet.net*Subject*: [mg121606] Size of Control[] and OpenerView in Manipulate*From*: W Craig Carter <ccarter at mit.edu>*Date*: Thu, 22 Sep 2011 07:24:40 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

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