From bfcc3eb8bf22f2aa4ca874e0e2298de3829e73e8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Michael=20R=C3=A4tzel?= <Viir@Viir.de>
Date: Tue, 25 Apr 2023 12:42:30 +0000
Subject: [PATCH] Add inspection GUI for buttons in inventory window

---
 .../alternate-ui/source/src/Common/App.elm    |  2 +-
 .../Frontend/InspectParsedUserInterface.elm   | 24 ++++++++++++++-----
 2 files changed, 19 insertions(+), 7 deletions(-)

diff --git a/implement/alternate-ui/source/src/Common/App.elm b/implement/alternate-ui/source/src/Common/App.elm
index 12b1d0e..dcc2548 100644
--- 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
index 4db450e..61c4042 100644
--- a/implement/alternate-ui/source/src/Frontend/InspectParsedUserInterface.elm
+++ b/implement/alternate-ui/source/src/Frontend/InspectParsedUserInterface.elm
@@ -1004,18 +1004,18 @@ 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"
@@ -1023,13 +1023,25 @@ treeNodeChildrenFromParsedUserInterfaceInventoryWindow viewConfig parsedUserInte
                 , 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
+                }
         ]