Allow for terminals to be deactivated

2025-08-19 13:58:57 +01:00
parent b8581a7862
commit 2f9cea1b69
9 changed files with 16 additions and 16 deletions
@@ -137,6 +137,9 @@ updateCloseObjects w =
    activeButtons = filter canpress . IM.elems $ w ^. cWorld . lWorld . buttons
    canpress bt = case bt ^. btEvent of
        ButtonPress {_btOn = t} -> not t
+        ButtonAccessTerminal tid -> fromMaybe False $ do
+            x <- w ^? cWorld . lWorld . terminals . ix tid . tmStatus
+            return (x /= TerminalDeactivated)
        _ -> True

 changeSwapSel :: Int -> World -> World