' <summary>

' BeeWit IDE Entorno de desarrollo Visual para php.

' BeeWitPHP IDE es el único entorno de desarrollo para PHP 

' de tipo WYSIWYG (What You See Is What You Get). 

' ĄAhora si!, aproveche la potencia del lenguaje PHP 

' y desarrolle más rápidamente gracias a la programación 

' intuitiva de BeeWit.

' Copyright Š 2010 Dewins Murillo Garcia 

' EMAIL: dewinsmg@gmail.com

' EMAIL: dewins@beewitsoft.com

' Este Programa es Software Libre: usted puede redistribuirlo 

' y/o modificarlo bajo los términos de la Licencia Publica General 

' GNU como es publicada por la Fundacion de Software Libre; 

' en la 3ra versión de la licencia.

' Este programa es distribuido con la esperanza de que sea útil, 

' pero SIN GARANTÍA ALGUNA; sin siquiera la garantía implícita 

' de VALOR COMERCIAL o FORMADO PARA UN PROPÓSITO EN PARTICULAR. 

' Vea la Licencia Publica General GNU para mas detalles.

' Usted debe haber recibido una copia de la Licencia Publica General 

' GNU junto con este programa. Si no, vaya a http://www.beewitsoft.com

' o en http://code.google.com/p/ajax-beewit-php-ide/

' </summary>

' <remarks></remarks>



Public Class clsNode

    Inherits TreeNode



    Private _Path As String

    Private _ContentCode As String

    Private _ContentView As String

    Private _Extention As String

    Private _TypeCode As TypeCode



    Enum enumTypeCode

        isCLASS

        isCONTROL

        isHTML

        isPHP

        isTXT

        isJS

        isCSS

        isOTHER

    End Enum



    Property Path()

        Get

            Return _Path

        End Get

        Set(ByVal value)

            _Path = value

            _Extention = value.ToString.Substring(value.ToString.LastIndexOf(".") + 1).ToUpper

            _TypeCode = enumTypeCode.isOTHER

            If _Extention = "CJX" Then

                _TypeCode = enumTypeCode.isCONTROL

            End If

            If _Extention = "CLS" Then

                _TypeCode = enumTypeCode.isCLASS

            End If

            If _Extention = "PHP" Then

                _TypeCode = enumTypeCode.isPHP

            End If

            If _Extention = "JS" Then

                _TypeCode = enumTypeCode.isJS

            End If

            If _Extention = "CSS" Then

                _TypeCode = enumTypeCode.isCSS

            End If

            If _Extention = "TXT" Then

                _TypeCode = enumTypeCode.isTXT

            End If

            If _Extention = "HTM" Or _Extention = "HTML" Then

                _TypeCode = enumTypeCode.isHTML

            End If

            If _TypeCode <> enumTypeCode.isOTHER Then

                _ContentCode = Project_Interfaz.GetContentFile(_Path)

                If _TypeCode = enumTypeCode.isCONTROL Then

                    _ContentView = Project_Interfaz.GetContentFile(_Path & ".view")

                End If

                If _TypeCode = enumTypeCode.isHTML Then

                    _ContentView = _ContentCode

                End If

            End If

        End Set

    End Property



    Property Extention() As String

        Get

            Return _Extention

        End Get

        Set(ByVal value As String)

            _Extention = value

        End Set

    End Property



    Property TypeCode() As enumTypeCode

        Get

            Return _TypeCode

        End Get

        Set(ByVal value As enumTypeCode)

            _TypeCode = value

        End Set

    End Property



    Public Sub New()



    End Sub



    Public Property ContentCode() As String

        Get

            Return _ContentCode

        End Get

        Set(ByVal value As String)

            _ContentCode = value

        End Set

    End Property



    Public Property ContentView() As String

        Get

            Return _ContentView

        End Get

        Set(ByVal value As String)

            _ContentView = value

        End Set

    End Property



End Class