Continue inventory refactor

2024-11-24 22:08:36 +00:00
parent 81fcfea1be
commit 82c53fc8e3
10 changed files with 187 additions and 149 deletions
@@ -50,8 +50,10 @@ showManObj :: ManipulatedObject -> String
 showManObj SortInventory = "SortInventory"
 showManObj (SelectedItem x y z) = "SelItem: "++ show x++ " Root: "++show y++" Attached: "++show z
 showManObj SelNothing = "SelNothing"
-showManObj SortNearby = "SortNearby"
-showManObj (SelCloseObject x) = "Close " ++ show x
+showManObj SortCloseItem = "SortCloseItem"
+showManObj (SelCloseItem x) = "CloseItem " ++ show x
+showManObj SortCloseButton = "SortCloseButton"
+showManObj (SelCloseButton x) = "CloseButton " ++ show x


 --testStringInit u = fromMaybe mempty $ do