@INCLUDE "ScuiLib.hws"
@DISPLAY {Width = 300, Height = 100, Title = "Test" }

Function wechsel()
    Local s$ = scui.Get("mySwitch") ;hole mir die Werte des Switches
    ;DebugPrint(s$.value)
    If s$.value = 1 ;wenn der erste Schalter gedrückt ist ...
        scui.Set("mySwitch2", { Value = 1 }, 1) ; ... aktiviere auch den zweiten
        scui.Set("button", { Text = { Content = { Values = { "Schalter sind an" }, Lines = 1 }}}, 1) ; ... und ändere Texteigenschaft des Buttons/analog Switch, ...
    Else
        scui.Set("mySwitch2", { Value = 0 }, 1) ; ... deaktiviere auch den zweiten
        scui.Set("button", { Text = { Content = { Values = { "Schalter sind aus" }, Lines = 1 }}}, 1) ; ... und ändere Texteigenschaft des Buttons/analog Switch, ...
    EndIf
EndFunction

scui.NewObject(
    #IFOCLASS_BEVELBOX,
    "bvlBackground",
    { x = 0, y = 0 },
    { x = 300, y = 100 }
)

scui.NewObject(
    #IFOCLASS_SWITCH,
    "mySwitch",
    { x = 10, y = 10 },
    { x = 120, y = 46 },
    nil,
    { Values = { "Schalter" }, Lines = 1 },
    { OnChanged = wechsel}
)

scui.NewObject(
    #IFOCLASS_SWITCH,
    "mySwitch2",
    { x = 130, y = 10 },
    { x = 120, y = 46 },
    nil,
    { Values = { "Schalter 2" }, Lines = 1 },
    nil
)

scui.NewObject(
    #IFOCLASS_BUTTON,
    "button",
    { x = 60, y = 60 },
    { x = 100, y = 20 },
    nil,
    { Values = { "Button" }, Lines = 1 },
    nil
)
Repeat
    WaitEvent
Forever