justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Prevent bug on shift selecting from outside selection lists

Browse Source
This commit is contained in:
justin
2024-11-25 18:53:27 +00:00
parent 79bc3b2ddf
commit 51caf936f4
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ghcidOutput
+1 -1
View File
@@ -1 +1 @@
All good (594 modules, at 18:28:59) All good (594 modules, at 18:51:13)
src/Dodge/Update/Input/InGame.hs
+3 -1
View File
@@ -142,7 +142,9 @@ updateMouseReleaseInGame w = case w ^. input . mouseContext of
OverInvDragSelect ssel mesel | ScancodeLShift `M.member` (w ^. input . pressedKeys) OverInvDragSelect ssel mesel | ScancodeLShift `M.member` (w ^. input . pressedKeys)
-> w & input . mouseContext .~ MouseInGame -> w & input . mouseContext .~ MouseInGame
& hud . hudElement . diSelection . _Just . _3 %~ getuniques & hud . hudElement . diSelection . _Just . _3 %~ getuniques
(maybe mempty (h ssel) (mesel ^? _Just . _2)) (maybe mempty (h ssel)
(guard (ssel ^? _1 == w ^? hud . hudElement . diSelection . _Just . _1)
>> mesel ^? _Just . _2))
-- note this assumes that mesel isn't outside the first -- note this assumes that mesel isn't outside the first
-- selection, this should perhaps just be made impossible by -- selection, this should perhaps just be made impossible by
-- removing the first part of the tuple -- removing the first part of the tuple