Option Strict On
Option Explicit On

Imports System
Imports Nexamas.UI.Components

Namespace Nexamas.UI.Controls

    ''' <summary>
    ''' Selection-change payload for <see cref="MASSegmentedControl"/>.
    ''' </summary>
    Public NotInheritable Class MASSegmentedControlSelectionChangedEventArgs
        Inherits EventArgs

        Public ReadOnly Property OldIndex As Integer
        Public ReadOnly Property NewIndex As Integer
        Public ReadOnly Property SelectedSegment As MASSegmentEntry

        Friend Sub New(oldIndex As Integer,
                       newIndex As Integer,
                       selectedSegment As MASSegmentEntry)

            Me.OldIndex = oldIndex
            Me.NewIndex = newIndex
            Me.SelectedSegment = selectedSegment
        End Sub

    End Class

End Namespace