Re: Help with dynamic functionality
- To: mathgroup at smc.vnet.net
- Subject: [mg128822] Re: Help with dynamic functionality
- From: "Nasser M. Abbasi" <nma at 12000.org>
- Date: Thu, 29 Nov 2012 06:02:26 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <k94h9k$bh5$1@smc.vnet.net>
- Reply-to: nma at 12000.org
On 11/28/2012 2:16 AM, samid.hoda at gmail.com wrote:
> My actual problem is quite involved but I am including a simple example for
> illustrative purposes. I am trying to reproduce "Enabled"-like functionality as follows:
>
> Clear[y, SliderModule];
> SetAttributes[SliderModule, HoldAll];
> SliderModule[enabled_] :=
> DynamicModule[{x = 0}, {Slider[
> Dynamic[x, (x = If[enabled, #, 0]) &]], Dynamic[x]}]
> {Checkbox[Dynamic[y]], Dynamic[y], SliderModule[y]}
>
> Ideally when the checkbox is checked then the user is able to move the slider;
>but when it is unchecked the slider resets to zero. The problem is when
>I uncheck the checkbox the slider doesn't reset to zero until I click on the
>slider itself. Is there a way to get the slider to immediately reset when
>I uncheck the checkbox? Please remember that this is a simplification of
>my actual problem so try to keep the SliderModule structure the same.
>
> Cheers,
> Sam
>
Column[{
Slider[Dynamic[slider], Enabled -> Dynamic[checkbox]],
Checkbox[Dynamic[checkbox, {checkbox = #; If[Not[checkbox],slider = 0]} &]]}
]
--Nasser