Use IntSet for extra selection items

2024-11-20 16:52:03 +00:00
parent 1f5d034c5f
commit a05511f6d8
3 changed files with 8 additions and 3 deletions
@@ -123,6 +123,9 @@ updateMouseReleaseInGame w = case w ^. input . mouseContext of
    OverInvDrag mpos -> fromMaybe (dropSelected w & input . mouseContext .~ MouseInGame) $ do
            j <- mpos
            return $ w & input . mouseContext .~ OverInvSelect (0,j)
+    OverInvDragSelect _ Nothing ->
+            w & input . mouseContext .~ MouseInGame
+                & hud . hudElement . diSelectionExtra .~ mempty
    OverInvDragSelect ssel (Just esel) ->
            w & input . mouseContext .~ MouseInGame
                & hud . hudElement . diSelectionExtra