This commit is contained in:
2022-06-06 00:36:18 +01:00
parent b0173c3778
commit 384a16851b
6 changed files with 23 additions and 21 deletions
-3
View File
@@ -25,7 +25,6 @@ makeButton col eff = defaultButton
. soundFromGeneral (LeverSound 0) (btpos b) click1S Nothing $ w
, _btText = "Button"
, _btState = BtOff
, _btTerminalParams = const NoTerminalParams
}
where
turnOn bt = bt {_btState = BtNoLabel, _btEvent = const id}
@@ -63,7 +62,6 @@ makeSwitchSPic dswitch effOn effOff = defaultButton
, _btEvent = flipSwitch
, _btText = "SWITCH/"
, _btState = BtOff
, _btTerminalParams = const NoTerminalParams
}
where
flipSwitch b w = switchEffect b . soundFromGeneral (LeverSound 0) (bpos b) click1S Nothing $ w
@@ -95,7 +93,6 @@ makeSwitch col1 col2 effOn effOff = defaultButton
, _btEvent = flipSwitch
, _btText = "SWITCH/"
, _btState = BtOff
, _btTerminalParams = const NoTerminalParams
}
where
flipSwitch b w = switchEffect b . soundFromGeneral (LeverSound 0) (bpos b) click1S Nothing $ w