Re: can I have dynamic controls in Manipulate?
- To: mathgroup at smc.vnet.net
- Subject: [mg91600] Re: can I have dynamic controls in Manipulate?
- From: Yves Klett <yves.klett at googlemail.com>
- Date: Thu, 28 Aug 2008 07:40:10 -0400 (EDT)
- References: <g95k14$4uh$1@smc.vnet.net>
Axel, have a look at "Manipulate Secrets Revealed" from WTC07: http://library.wolfram.com/infocenter/Conferences/7001/ On slide 7 Experimental`ControlBlock is introduced. This should help to keep interfaces tidy... Regards, Yves axel schrieb: > Hello Gurus, > > I wrote a demonstration using Manipulate, which generates graphic > output. It would be nice to have a possibility to adjust the colors > using a ColorSlider or a ColorSetter. However, a bunch of ColorSliders > would detract the user from the main topic. Therefore, I would like to > have a Button "show color sliders" / "hide color sliders". Does > anybody know how to to this? > > So far I was able to minimize the controls, but I cannot have a > dynamic string. The code is below. > > Thank you in advance > > Axel > > --------------------------------------------- > Manipulate[ > > plotColorTxt = If[showColorControls, "Plot Color", ""]; > bgColorTxt = If[showColorControls, "Background Color", ""]; > plotColorEnabled = If[showColorControls, True, False]; > Plot[Sin[a x], {x, 0, 2 Pi}, PlotStyle -> colPlot, > Background -> colBg], > > {{a, 1, "Frequency"}, {1, 5}, ControlPlacement -> Left}, > {{showColorControls, True, "Color Selector"}, {False, True}, > ControlPlacement -> Left}, > {{colPlot, Red, plotColorTxt}, ColorSlider, > Enabled -> showColorControls, > ImageSize -> If[showColorControls, {90, 20}, {0, 0}], > ControlPlacement -> Left}, > {{colBg, White, bgColorTxt}, ColorSlider, > Enabled -> showColorControls, > ImageSize -> If[showColorControls, {90, 20}, {0, 0}], > ControlPlacement -> Left} > ] >