Allow dragging of selected items in inventory

This commit is contained in:
2024-10-20 11:32:37 +01:00
parent 8b6f5529ff
commit f6e32ff6ef
7 changed files with 259 additions and 158 deletions
+20 -1
View File
@@ -1 +1,20 @@
All good (597 modules, at 12:38:41)
/home/justin/Haskell/loop/src/Dodge/Update.hs:319:30-33: warning: [-Wunused-matches]
Defined but not used: ssel
|
319 | Just (MouseInvChosen ssel esel) -> w
| ^^^^
/home/justin/Haskell/loop/src/Dodge/Update.hs:319:35-38: warning: [-Wunused-matches]
Defined but not used: esel
|
319 | Just (MouseInvChosen ssel esel) -> w
| ^^^^
/home/justin/Haskell/loop/src/Dodge/Update.hs:341:38: warning: [-Wunused-matches]
Defined but not used: k
|
341 | shiftInvItemsUp (_,i) (_,j) (Just (_,k)) w = w
| ^
/home/justin/Haskell/loop/src/Dodge/Update.hs:351:40: warning: [-Wunused-matches]
Defined but not used: k
|
351 | shiftInvItemsDown (_,i) (_,j) (Just (_,k)) w = w
| ^