Hide group selection in combine inventory, mempty on combine

2024-11-25 21:55:10 +00:00
parent 445ca84358
commit f36f4b8536
3 changed files with 7 additions and 10 deletions
@@ -131,7 +131,11 @@ drawMouseOver cfig w =
 drawDragSelected :: Configuration -> World -> Maybe Picture
 drawDragSelected cfig w = do
    ys <- w ^? hud . hudElement . diSelection . _Just . _3
-    guard $ not (IS.null ys)
+    guard $ not (IS.null ys) && 
+        ( case w ^? hud . hudElement . subInventory of 
+            Just NoSubInventory -> True
+            _ -> False
+        )
    (i, _, _) <- w ^? hud . hudElement . diSelection . _Just
    sss <- w ^? hud . hudElement . diSections
    let idp = invDisplayParams w