Private Sub RenderMenuJavascript(output As HtmlTextWriter)

        Dim openMethod As String = String.Empty

        If Environment.License.HasFeatureSet(Exact.Enums.FeatureSets.ExactDesignSystem) Then

            openMethod = ", { openOnHover: true }"

        End If

​

        With output

​

            .WriteLine($"MenuManager.Add('MyExactOnlineContainer'{openMethod});")

            .WriteLine($"MenuManager.Add('HelpMenuContainer'{openMethod});")

            If Not Environment.License.HasFeatureSet(Exact.Enums.FeatureSets.ExactDesignSystem) Then

                .WriteLine("MenuManager.Add('MarketPlaceMenuContainer');")

                .WriteLine("MenuManager.Add('AdminContainer');")

            Else

                .WriteLine("MenuManager.Add('SwitcherMenu', { openOnHover: true });")

            End If

​

            .WriteLine("MenuManager.Add('MyDocumentsContainer', { openOnHover: true });")

            .WriteLine("MenuManager.Add('QuickCreateMenuNavigation', { openOnHover: true });")

            .WriteLine("MenuManager.Add('MyWorkflowContainer', { openOnHover: true });")

            .WriteLine("MenuManager.Add('CompanyColorPicker', { selector: '.submenu', handleAfterOpen: true, preventCollapseParent: true });")

            .WriteLine("MyWorkflowMenu.initialize();")

​

            If Not AccountTool.IsClientPortalUser Then

                .WriteLine("megaMenu = new MegaMenu('.megamenu');")

            End If

        End With

    End Sub