Distinguish between selected item and root-selected item

2024-09-21 21:59:53 +01:00
parent 2154abfb1d
commit 31b5db6e9e
33 changed files with 313 additions and 281 deletions
@@ -30,7 +30,7 @@ data NearbyManipulation

 data InventoryManipulation
    = SortInventory
-    | SelItem { _ispItem :: Int, _iselAction :: InvSelAction}
+    | SelectedItem { _imSelectedItem :: Int, _imRootItem :: Int}
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data InvSelAction