Option Strict On
Option Explicit On

Imports System

Namespace Nexamas.UI.Composition

    ''' <summary>
    ''' Event payload emitted after a host-level Composition apply attempt.
    ''' It carries success state and a snapshot of diagnostics for UI/status display.
    ''' </summary>
    <Global.System.ComponentModel.EditorBrowsable(Global.System.ComponentModel.EditorBrowsableState.Advanced)>
    Friend NotInheritable Class MASCompositionAppliedEventArgs
        Inherits EventArgs

        Friend ReadOnly Property Succeeded As Boolean
        Friend ReadOnly Property Diagnostics As MASLayoutDiagnostic()

        Friend Sub New(succeeded As Boolean, diagnostics As MASLayoutDiagnostic())
            Me.Succeeded = succeeded
            Me.Diagnostics = If(diagnostics, New MASLayoutDiagnostic() {})
        End Sub

    End Class

End Namespace