Option Strict On
Option Explicit On

Imports System.Collections.Generic
Imports Nexamas.UI.Components

Namespace Nexamas.UI.Rendering

    Friend NotInheritable Class MessageBoxInteractionState

        Friend Sub New()
            Reset()
        End Sub

        Friend Property CloseHover As Boolean
        Friend Property ClosePressed As Boolean
        Friend Property ButtonStates As List(Of MASButtonState)
        Friend Property ContentScrollOffsetY As Single
        Friend Property CheckBoxHover As Boolean
        Friend Property CheckBoxPressed As Boolean

        Friend Sub Reset()
            CloseHover = False
            ClosePressed = False

            If ButtonStates Is Nothing Then
                ButtonStates = New List(Of MASButtonState)()
            Else
                ButtonStates.Clear()
            End If

            ContentScrollOffsetY = 0.0F

            CheckBoxHover = False
            CheckBoxPressed = False
        End Sub

    End Class

End Namespace