Determine mouse position over terminal display

2024-11-16 16:45:12 +00:00
parent 5efc9220e0
commit 86f185c71e
5 changed files with 36 additions and 14 deletions
@@ -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