Continue work on terminals

2025-08-18 20:38:01 +01:00
parent 1c9d58c716
commit e7b66b4fa4
9 changed files with 145 additions and 119 deletions
@@ -74,7 +74,7 @@ sensInsideDoor senseType outplid rm =
            .++~ [ psPt atFstLnkOut . PutForeground $ floorWire (V2 20 0) (V2 20 (-100))
                 , psPt atFstLnkOut . PutForeground $ floorWire (V2 0 (-100)) (V2 20 (-100))
                 , psPt atFstLnkOut . PutForeground $ verticalWire (V2 20 0) 0 80
-                 , putMessageTerminal terminalColor (basicTerminal & tmCommands .:~ TCDamageCommand)
+                 , putMessageTerminal terminalColor (textTerminal & tmCommands .:~ TCDamageCommand)
                    & plSpot .~ rprBoolShift isUnusedLnk (shiftInBy 10)
                 ]
        & rmOutPmnt .~ [OutPlacement (sensAboveDoor senseType 10 (atFstLnkOutShiftInward 100)) outplid]
@@ -47,7 +47,7 @@ addWarningTerminal str outplid =
            )
    termMessages trpl =
        lineOutputTerminal (makeColorTermLine red "WARNING" : makeTermPara str)
--            & tmCommands .:~ toggleCommand
+            & tmCommands .:~ TCToggles
            & tmToggles
                .~ M.fromList
                    [("DOOR", TerminalToggle (fromJust $ _plMID trpl) (BlConst True))]