Implement terminals

2022-03-14 20:39:23 +00:00
parent 1b6f11709c
commit f16f32d9d3
30 changed files with 313 additions and 119 deletions
@@ -28,6 +28,7 @@ makeButton col eff = Button
    , _btID = 0
    , _btText = "Button"
    , _btState = BtOff
+    , _btTerminalParams = NoTerminalParams
    }
  where
    turnOn bt = bt {_btState = BtNoLabel, _btEvent = const id}
@@ -68,6 +69,7 @@ makeSwitchSPic dswitch effOn effOff = Button
    , _btID = 0
    , _btText = "SWITCH/"
    , _btState = BtOff
+    , _btTerminalParams = NoTerminalParams
    }
  where 
    flipSwitch b w = switchEffect b . soundFromGeneral (LeverSound 0) (bpos b) click1S Nothing $ w
@@ -102,6 +104,7 @@ makeSwitch col1 col2 effOn effOff = Button
    , _btID = 0
    , _btText = "SWITCH/"
    , _btState = BtOff
+    , _btTerminalParams = NoTerminalParams
    }
  where 
    flipSwitch b w = switchEffect b . soundFromGeneral (LeverSound 0) (bpos b) click1S Nothing $ w