Determine mouse position over terminal display

src/Dodge/Render/HUD.hs

@@ -355,6 +355,7 @@ drawTerminalDisplay tid cfig w = fromMaybe mempty $ do
         invHead cfig (_tmTitle tm ++ ":T" ++ show tid)
             <> drawSelectionList secondColumnParams cfig (thesellist tm)
             <> color (withAlpha 0.5 green) (drawSelectionListBackground secondColumnParams cfig 15)
+  -- when changing the 15, change isOverTerminalScreen
             <> color (dark $ _tmExternalColor tm) (drawTitleBackground cfig)
   where
     toselitm (str, col) = SelectionItem [str] 1 True col 0 ()

src/Dodge/Render/List.hs

@@ -56,7 +56,7 @@ drawSelectionListBackground ldp cfig l = translateScreenPos cfig (ldp ^. ldpPos)
     polygon . reverse $ rectNSWE 5 s (-5) e
   where
     s = - (5 + fromIntegral l * (20 * ldp ^. ldpScale + ldp ^. ldpVerticalGap))
-    e = 555 -- HACK
+    e = 555 -- HACK isOverTerminalScreen
 
 makeSelectionListPictures :: SelectionList a -> [Picture]
 makeSelectionListPictures = concatMap f . _slItems