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

Fix dragging over items larger than the selection group

Browse Source 
There is still a further choice/improvement to be made here,
but at least dragging shouldn't glitch out as it currently stands
This commit is contained in:
justin
2024-11-25 11:09:58 +00:00
parent 905be15a33
commit 2c6037d852
6 changed files with 170 additions and 140 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/Picture.hs
+7 -7
View File
@@ -84,14 +84,14 @@ mouseCursorType u = case u ^. uvWorld . input . mouseContext of
MouseMenuClick {} -> drawMenuClick 5
MouseMenuCursor -> drawMenuCursor 5
MouseInGame -> drawPlus 5
OverInvDrag 0 (Just (3,_)) -> drawDragDrop 5
OverInvDrag 0 Nothing -> drawDragDrop 5
OverInvDrag 0 (Just (0,_)) -> drawDrag 5
OverInvDrag 0 _ -> drawEmptySet 5
OverInvDrag 0 (Just (3,_)) _ _ -> drawDragDrop 5
OverInvDrag 0 Nothing _ _ -> drawDragDrop 5
OverInvDrag 0 (Just (0,_)) _ _ -> drawDrag 5
OverInvDrag 0 _ _ _ -> drawEmptySet 5
-- OverInvDrag 0 _ -> drawDragDrop 5
OverInvDrag 3 (Just (3,_)) -> drawDrag 5
OverInvDrag 3 _ -> drawDragPickup 5
OverInvDrag _ _ -> drawEmptySet 5
OverInvDrag 3 (Just (3,_)) _ _ -> drawDrag 5
OverInvDrag 3 _ _ _ -> drawDragPickup 5
OverInvDrag {} -> drawEmptySet 5
OverInvDragSelect {} -> drawDragSelect 5
OverInvSelect {} -> drawSelect 5
OverInvFilt {} -> drawCombFilter 5