[Oberon] WMMixer.Mod

[Yaroslav Romanchenko]

Hi All,

Mixer mute CheckBoxes lacks of onClick handlers.
Piece of Mixer object definition with changes:

        PROCEDURE &Init;
        BEGIN
            Init^;
            NEW(deviceName, PrototypedeviceName, NIL, NIL);
properties.Add(deviceName);
            NEW(channelName, PrototypechannelName, NIL, NIL);
properties.Add(channelName);
            NEW(name); name.alignment.Set(WMComponents.AlignTop);
name.bounds.SetHeight(20);
            AddContent(name);
               
            NEW(mute); mute.alignment.Set(WMComponents.AlignBottom);
mute.bounds.SetHeight(20);
            mute.caption.SetAOC("Mute");
            mute.onClick.Add(MuteChanged);
            AddContent(mute);
           
            NEW(value); value.alignment.Set(WMComponents.AlignClient);
            value.bearing.SetLeft(20); value.bearing.SetRight(20);
            value.onPositionChanged.Add(VolChanged);
            value.max.Set(255);
            AddContent(value);
        END Init;
       
        PROCEDURE MuteChanged(sender, data : ANY);
        BEGIN
            IF channel # NIL THEN
                channel.SetMute(mute.state.Get () =
WMStandardComponents.Checked);
            END
        END MuteChanged;

-- 
Cheers, SAGE
http://sage.com.ua/