'**************************************************
' FILE      : BBCodeText.vb
' AUTHOR    : Paulo Santos
' CREATION  : 4/29/2009 2:20:10 PM
' COPYRIGHT : Copyright © 2009
'             PJ on Development
'             All Rights Reserved.
'
' Description:
'       TODO: Add file description
'
' Change log:
' 0.1   4/29/2009 2:20:10 PM
'       Paulo Santos
'       Created.
'***************************************************

''' <summary>
''' Represents a simple text in the BBCode.
''' </summary>
Public NotInheritable Class BBCodeText(Of TContext As Class)
	Inherits BBCodeNode(Of TContext)

	Private __InnerText As String

	''' <summary>Initializes an instance of the <see cref="BBCodeText" /> class.
	''' This is the default constructor for this class.</summary>
	Friend Sub New()
	End Sub

	''' <summary>Initializes an instance of the <see cref="BBCodeText" /> class.</summary>
	''' <param name="text">The text of the <see cref="BBCodeText"/>.</param>
	Friend Sub New(ByVal text As String)
		Me.InnerText = text
	End Sub

	''' <summary>Transforms this instance of <see cref="BBCodeText" /> into its desired text representation.</summary>
	''' <param name="formatter">An object that implements the <see cref="ITextFormatter" /> interface.</param>
	''' <returns>The text formatted by the <see cref="ITextFormatter" />.</returns>
	Public Overrides Function Format(ByVal context As TContext, ByVal formatter As ITextFormatter) As String
		Return formatter.Format(__InnerText)
	End Function

	''' <summary>Gets or sets the inner BBCode.</summary>
	''' <value>The BBCode between the start and end tags.</value>
	Public Overrides Property InnerBBCode() As String
		Get
			Return Me.InnerText
		End Get
		Set(ByVal value As String)
			Me.InnerText = value
		End Set
	End Property

	''' <summary>Gets or sets the plain text of the node.</summary>
	''' <value>The plain text between the start and end tags.</value>
	Public Overrides Property InnerText() As String
		Get
			Return __InnerText
		End Get
		Set(ByVal value As String)
			__InnerText = value
		End Set
	End Property

	''' <summary>Gets the outer BBCode.</summary>
	''' <value>The BBCode of this instance of the <see cref="BBCodeNode" /> .</value>
	Public Overrides ReadOnly Property OuterBBCode() As String
		Get
			Return Me.InnerText
		End Get
	End Property

	''' <summary>Returns a <see cref="T:System.String" /> that represents the current <see cref="T:System.Object" />.</summary>
	''' <returns>A <see cref="T:System.String" /> that represents the current <see cref="T:System.Object" />.</returns>
	''' <filterpriority>2</filterpriority>
	Public Overrides Function ToString() As String
		Return Me.InnerText
	End Function

End Class