Option Strict On
Option Explicit On

Imports System
Imports System.Globalization
Imports Nexamas.UI.Application
Imports Nexamas.UI.Components
Imports Nexamas.UI.Controls
Imports Nexamas.UI.Layout

Partial Friend Class NexamasUIShowcase

    Private Sub BuildHomePage(page As MASApplicationLayoutPageBuilder)
        If page Is Nothing Then Return

        ApplyShowcaseWorkspaceSurface(page)
        BuildShowcaseRouteSummary(page, HomeRouteSummary)

        Dim title As MASLabel = CreateBody("Nexamas UI Showcase")
        title.LabelVariant = MASLabelVariant.Heading
        AddShowcaseContent(page, title, MASSize.FillWidth)

        BuildHomeExecutiveSurface(page)
        BuildHomeBottomRouteTrail(page)
    End Sub
End Class