Option Strict On
Option Explicit On

Imports System
Imports Nexamas.UI.FileSystem

Namespace Nexamas.UI.Components

    ''' <summary>
    ''' Raised when FilePicker inline rename fails after the browser editor asks for commit.
    ''' </summary>
    Friend NotInheritable Class MASFilePickerInlineRenameFailedEventArgs
        Inherits EventArgs

        Friend Sub New(entry As FileSystemEntry,
                       attemptedName As String,
                       message As String)

            Me.Entry = entry
            Me.AttemptedName = If(attemptedName, String.Empty)
            Me.Message = If(message, String.Empty)
        End Sub

        Friend ReadOnly Property Entry As FileSystemEntry
        Friend ReadOnly Property AttemptedName As String
        Friend ReadOnly Property Message As String

    End Class

End Namespace