Tweak mouseover display to (partially) work during filtering

2024-11-03 20:52:00 +00:00
parent feec061aa6
commit adca54c1ef
10 changed files with 361 additions and 349 deletions
@@ -203,7 +203,8 @@ inverseSelSecYint yint sss = do
        then inverseSelSecYint (yint - l) othersss
        else do
            let ls = L.postscan (L.premap _siHeight L.sum) (_ssItems ss)
-            j <- L.fold (L.findIndex (\x -> x - _ssOffset ss > yint)) ls
+            --j <- L.fold (L.findIndex (\x -> x - _ssOffset ss > yint)) ls
+            (j,_) <- L.fold (L.find (\(_,x) -> x - _ssOffset ss > yint)) $ IM.toList ls
            return (i, j)

 inverseSelSecYintXPosCheck ::