Remove possiblity of displayed but non-focussed terminal

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