Allow terminals to block input

src/Dodge/Event.hs

@@ -45,7 +45,7 @@ import SDL
 
 handleEvent :: Event -> Universe -> IO (Maybe Universe)
 handleEvent e = case eventPayload e of
-    TextInputEvent tev         -> handleTextInput (textInputEventText tev)
+    TextInputEvent tev         -> return . Just . handleTextInput (textInputEventText tev)
     KeyboardEvent kev          -> handleKeyboardEvent kev
     MouseMotionEvent mmev      -> return . handleMouseMotionEvent mmev
     MouseButtonEvent mbev      -> return . Just . over uvWorld (handleMouseButtonEvent mbev)
@@ -144,7 +144,7 @@ wheelEvent y w = case _hudElement $ _hud w of
     DisplayInventory (CombineInventory _) -> w
         & hud . hudElement . subInventory . combineInvSel . _Just %~ ((`mod` numcombs) . subtract yi)
     DisplayInventory (DisplayTerminal tmid)
-        | rbDown && inTermFocus w -> w
+        | rbDown && inTermFocus w -> guardDisconnectedID tmid w $ w
             & terminals . ix tmid %~ updatetermsubsel
         | inTermFocus w -> w
             & terminals . ix tmid %~ updatetermsel