Allow dragging after single click

2024-11-25 12:40:45 +00:00
parent 348da9e6b6
commit 691ed23eb4
3 changed files with 26 additions and 19 deletions
@@ -205,7 +205,7 @@ startDrag (a, b) cfig w = fromMaybe (augInvDirectSelect (a, b) $ setmichosen mem
    setmichosen :: IS.IntSet -> World -> World
    setmichosen x =
        (input . mouseContext .~ OverInvDrag a (Just (a, b)) above bneath)
-            . (hud . hudElement . diSelectionExtra .~ x)
+            . (hud . hudElement . diSelectionExtra .~ IS.insert b x)
    above :: Maybe (Int,Int)
    above = do
        sss <- w ^? hud . hudElement . diSections