Add inspection GUI for buttons in inventory window

Arcitectus · Apr 25, 2023 · bfcc3eb · bfcc3eb
1 parent 14b8fb5
commit bfcc3eb
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 7 deletions.
diff --git a/implement/alternate-ui/source/src/Common/App.elm b/implement/alternate-ui/source/src/Common/App.elm
@@ -3,4 +3,4 @@ module Common.App exposing (versionId)
 
 versionId : String
 versionId =
-    "2023-04-24"
+    "2023-04-25"
diff --git a/implement/alternate-ui/source/src/Frontend/InspectParsedUserInterface.elm b/implement/alternate-ui/source/src/Frontend/InspectParsedUserInterface.elm
@@ -1004,32 +1004,44 @@ treeNodeChildrenFromParsedUserInterfaceInventoryWindow :
     ViewConfig event
     -> EveOnline.ParseUserInterface.InventoryWindow
     -> List (TreeViewNode event ParsedUITreeViewPathNode)
-treeNodeChildrenFromParsedUserInterfaceInventoryWindow viewConfig parsedUserInterfaceInventoryWindow =
+treeNodeChildrenFromParsedUserInterfaceInventoryWindow viewConfig inventoryWindow =
     treeNodeChildrenFromRecordWithUINode
         viewConfig
-        parsedUserInterfaceInventoryWindow.uiNode
-        [ parsedUserInterfaceInventoryWindow.subCaptionLabelText |> fieldFromMaybeString "subCaptionLabelText"
-        , parsedUserInterfaceInventoryWindow.leftTreeEntries
+        inventoryWindow.uiNode
+        [ inventoryWindow.subCaptionLabelText |> fieldFromMaybeString "subCaptionLabelText"
+        , inventoryWindow.leftTreeEntries
             |> fieldFromListInstance
                 { fieldName = "leftTreeEntries "
                 , fieldValueChildren =
                     treeNodeChildrenFromInventoryWindowLeftTreeEntry viewConfig
                 }
-        , parsedUserInterfaceInventoryWindow.selectedContainerCapacityGauge
+        , inventoryWindow.selectedContainerCapacityGauge
             |> Maybe.andThen Result.toMaybe
             |> fieldFromMaybeInstance
                 { fieldName = "selectedContainerCapacityGauge"
                 , fieldValueSummary = always "..."
                 , fieldValueChildren =
                     treeNodeChildrenFromParsedUserInterfaceInventoryCapacityGauge
                 }
-        , parsedUserInterfaceInventoryWindow.selectedContainerInventory
+        , inventoryWindow.selectedContainerInventory
             |> fieldFromMaybeInstance
                 { fieldName = "selectedContainerInventory"
                 , fieldValueSummary = always "..."
                 , fieldValueChildren =
                     treeNodeChildrenFromParsedUserInterfaceInventory viewConfig
                 }
+        , inventoryWindow.buttonToStackAll
+            |> fieldFromMaybeInstance
+                { fieldName = "buttonToStackAll"
+                , fieldValueSummary = always "..."
+                , fieldValueChildren = treeViewNodeFromUINode viewConfig >> List.singleton
+                }
+        , inventoryWindow.buttonToSwitchToListView
+            |> fieldFromMaybeInstance
+                { fieldName = "buttonToSwitchToListView"
+                , fieldValueSummary = always "..."
+                , fieldValueChildren = treeViewNodeFromUINode viewConfig >> List.singleton
+                }
         ]