Allow scrolling within a larger selection to not remove larger selection

2024-11-25 17:20:09 +00:00
parent 83bcf3c0f7
commit 669f9667f1
16 changed files with 233 additions and 200 deletions
@@ -360,7 +360,8 @@ updateMouseContext cfig u = case u ^. uvWorld . input . mouseContext of
                return $ OverInvSelect selpos
    overcomb = do
        sss <- w ^? hud . hudElement . subInventory . ciSections
-        msel <- w ^? hud . hudElement . subInventory . ciSelection . _Just
+        (xl,xr,_) <- w ^? hud . hudElement . subInventory . ciSelection . _Just
+        let msel = (xl,xr)
        let mpossel = inverseSelNumPos cfig secondColumnParams sss (w ^. input . mousePos)
        return $ case mpossel of
            Nothing -> OverCombEscape