Decouple selection section inventory position

2024-10-24 14:55:51 +01:00
parent 81f4f38166
commit 388064895f
17 changed files with 304 additions and 261 deletions
@@ -344,7 +344,7 @@ updateMouseInventorySelection' sss cfig w

 startDrag :: (Int,Int) -> World -> World
 startDrag (a,b) w = fromMaybe (augInvDirectSelect (a,b) $ setmichosen 0 w) $ do
-    (i,j) <- w ^? hud . hudElement . diSections . sssExtra . sssSelPos . _Just
+    (i,j) <- w ^? hud . hudElement . diSelection . _Just
    x <- w ^? hud . hudElement . subInventory . nsSelected . misExtra
    guard $ i == a && b >= j && b <= j + x
    return w