Option Strict On
Option Explicit On

Imports System.Drawing
Imports System.Windows.Forms

Namespace Nexamas.UI.Application

    ''' <summary>
    ''' Durable host-window presentation snapshot.
    ''' This is a storage contract only; it is validated before every restore and never used as raw unchecked bounds.
    ''' </summary>
    Friend NotInheritable Class MASWindowPresentationState

        Friend Sub New()
            Bounds = Rectangle.Empty
            WindowState = FormWindowState.Normal
            ProfileKind = MASWindowPresentationProfileKind.Standard
        End Sub

        Friend Property Bounds As Rectangle
        Friend Property WindowState As FormWindowState
        Friend Property ProfileKind As MASWindowPresentationProfileKind

        Friend ReadOnly Property HasBounds As Boolean
            Get
                Return Bounds.Width > 0 AndAlso Bounds.Height > 0
            End Get
        End Property

    End Class

End Namespace