Remove possiblity of displayed but non-focussed terminal

src/Dodge/Update/Input/InGame.hs

@@ -36,12 +36,9 @@ updateUseInputInGame u = updateFunctionKeys $ case u ^. uvWorld . hud . hudEleme
     DisplayCarte -> over uvWorld updatePressedButtonsCarte u
     DisplayInventory{_subInventory = si} -> case si of
         DisplayTerminal tmid
-            | lbinitialpress && inTermFocus w -> u & uvWorld 
+            | lbinitialpress -> u & uvWorld 
                 %~ doTerminalEffectLB (w ^?! cWorld . lWorld . terminals . ix tmid)
-            | inTermFocus (_uvWorld u) -> updateKeysInTerminal tmid u
-            | lbinitialpress ->
-                u & uvWorld . cWorld . lWorld . terminals . ix tmid . tmInput . tiFocus 
-                    %~ const True
+            | otherwise -> updateKeysInTerminal tmid u
         CombineInventory{_ciSections = sss, _ciSelection = msel} 
             | lbinitialpress -> u & uvWorld %~ updateCombineInvClick sss
             | inSubInvRegex (u ^. uvWorld) ->

src/Dodge/Update/Scroll.hs

@@ -7,7 +7,6 @@ import Data.Maybe
 import Dodge.Base
 import Dodge.Data.Universe
 --import Dodge.HeldScroll
-import Dodge.InputFocus
 import Dodge.Inventory
 import Dodge.SelectionSections
 --import Dodge.SoundLogic
@@ -78,15 +77,14 @@ guardDisconnectedID tmid w w' = case w ^? cWorld . lWorld . terminals . ix tmid
 
 terminalWheelEvent :: Int -> Int -> World -> World
 terminalWheelEvent yi tmid w
-    | rbDown && inTermFocus w =
+    | rbDown =
         guardDisconnectedID tmid w $
             w
                 & cWorld . lWorld . terminals . ix tmid %~ updatetermsubsel
-    | inTermFocus w =
+    | otherwise =
         guardDisconnectedID tmid w $
             w
                 & cWorld . lWorld . terminals . ix tmid %~ updatetermsel
-    | otherwise = w
   where
     rbDown = ButtonRight `M.member` _mouseButtons (_input w)
     updatetermsel tm = case tm ^? tmInput . tiSel of