Add menu item cross reference button to AOT browser form (#31)

Co-authored-by: Caleb Blanchard <caleb.blanchard@arbelatech.com>

Author: caleblanchard

Metadata/AOTBrowser/AOTBrowser/AxForm/ARBAOTBrowser.xml

@@ -185,6 +185,7 @@ public class ARBAOTBrowser extends FormRun
         ResourceImageGroup.visible(false);
 
         boolean tableBrowserEnabled = false;
+        boolean menuItemRefEnabled = false;
         switch (_objectType)
         {
             case ARBAOTObjectType::Resource:
@@ -194,6 +195,12 @@ public class ARBAOTBrowser extends FormRun
             case ARBAOTObjectType::Table:
             case ARBAOTObjectType::View:
                 tableBrowserEnabled = true;
+                break;
+            case ARBAOTObjectType::MenuItemAction:
+            case ARBAOTObjectType::MenuItemDisplay:
+            case ARBAOTObjectType::MenuItemOutput:
+                menuItemRefEnabled = true;
+                break;
         }
 
         aotObjectTree = ARBAOTObjectTree::newFromAOTObject(ObjectTree, _objectType, ExtensionViewToggle.toggleValue());
@@ -223,6 +230,7 @@ public class ARBAOTBrowser extends FormRun
         aotObjectTree.update(_aotNodeName);
         DetailsTab.caption(_aotNodeName + ' - ' + enum2Str(_objectType));
         ARBOpenTableBrowser.enabled(tableBrowserEnabled);
+        ARBMenuItemReferences.enabled(menuItemRefEnabled);
     }
 
 ]]></Source>
@@ -1060,6 +1068,26 @@ public class ARBAOTBrowser extends FormRun
             sysTableBrowser.run(tablename2id(tableName));
         }
 
+]]></Source>
+					</Method>
+				</Methods>
+			</Control>
+			<Control>
+				<Name>ARBMenuItemReferences</Name>
+				<Type>MenuFunctionButton</Type>
+				<Methods>
+					<Method>
+						<Name>clicked</Name>
+						<Source><![CDATA[
+        /// <summary>
+        ///
+        /// </summary>
+        public void clicked()
+        {
+            this.parameters(currentObjectName);
+            super();
+        }
+
 ]]></Source>
 					</Method>
 				</Methods>
@@ -1739,6 +1767,15 @@ public class ARBAOTBrowser extends FormRun
 									i:nil="true" />
 								<Text>@AOTBrowser:OpenTableBrowserButton</Text>
 							</AxFormControl>
+							<AxFormControl xmlns=""
+								i:type="AxFormMenuFunctionButtonControl">
+								<Name>ARBMenuItemReferences</Name>
+								<AutoDeclaration>Yes</AutoDeclaration>
+								<Type>MenuFunctionButton</Type>
+								<FormControlExtension
+									i:nil="true" />
+								<MenuItemName>ARBMenuItemReferences</MenuItemName>
+							</AxFormControl>
 							<AxFormControl xmlns=""
 								i:type="AxFormButtonControl">
 								<Name>ExtensionViewToggle</Name>

Metadata/AOTBrowser/AOTBrowser/AxForm/ARBMenuItemReferences.xml

@@ -43,6 +43,14 @@ public class ARBMenuItemReferences extends FormRun
                         }
                     }
                 }
+                else if (caller.name() == formStr(ARBAOTBrowser))
+                {
+                    str menuItemNameParm = element.args().parm();
+                    if (menuItemNameParm)
+                    {
+                        this.queryBuildDataSource().addRange(fieldNum(ARBMenuItemReferences, MenuItemName)).value(menuItemNameParm);
+                    }
+                }
             }
         }