Half add explicit death event for machines

2022-06-05 10:37:40 +01:00
parent 7398791194
commit fcc6d3952c
9 changed files with 26 additions and 10 deletions
@@ -52,7 +52,7 @@ addWarningTerminal outplid = (rmName .++~ "warningTerm-")
  where
    outplace = extTrigLitPos
        (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
-        (Just . set plSpot (rprShift moveToSideFirstOutLink) . putTerminal . termMessages)
+        (Just . set plSpot (rprShift moveToSideFirstOutLink) . putTerminal terminalColor . termMessages)
    termMessages trid _ = defaultTermParams & addInputLine
            [unlockCommand trid,quitCommand] 
            [helpCommand,infoCommand theinfo,commandsCommand]