Tweak bounds for x over selection items

2024-11-25 10:06:13 +00:00
parent 2299ec374c
commit 905be15a33
2 changed files with 3 additions and 3 deletions
@@ -1 +1 @@
-All good (593 modules, at 10:03:17)
+All good (593 modules, at 10:06:01)
@@ -212,8 +212,8 @@ inverseSelSecYintXPosCheck   cfig ldp x yint sss = do
    let V2 x0 _ = screenPosAbs cfig (ldp ^. ldpPos)
    sindent <- sss ^? ix i . ssIndent
    itindent <- sss ^? ix i . ssItems . ix j . siOffX
-    let x1 = x0 + _ldpScale ldp * 10 * fromIntegral (sindent + itindent)
-    guard $ x - x1 < 150 && x > x1
+    let x1 = x0 + _ldpScale ldp * 10 * (fromIntegral (sindent + itindent) - 0.5)
+    guard $ x - x1 < 160 && x > x1
    return (i,j)

 inverseSelNumPos ::