' Copyright 2007 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.
'


Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Web.UI
Imports System.Collections
Imports ESRI.ArcGIS.ADF.Web.DataSources

Namespace REXMLDataSource_VBNet
  Public Class GISDataSource
    Implements IGISDataSource

    Public Sub New()
    End Sub

    Public Sub New(ByVal name_Renamed As String, ByVal dataSourceDefinition_Renamed As String)
      Me.New(name_Renamed, String.Empty, dataSourceDefinition_Renamed)
    End Sub

    Public Sub New(ByVal name_Renamed As String, ByVal identity_Renamed As String, ByVal dataSourceDefinition_Renamed As String)
      Me.name_Renamed = name_Renamed
      Me.identity_Renamed = identity_Renamed
      Me.dataSourceDefinition_Renamed = dataSourceDefinition_Renamed
    End Sub

    #Region "IGISDataSource implementation"

    Private m_state As Hashtable
    Private name_Renamed As String = String.Empty
    Private dataSourceDefinition_Renamed As String = String.Empty
    Private identity_Renamed As String = String.Empty
    Private page_Renamed As Page = Nothing
    Private resources_Renamed As GISResourceCollection = New GISResourceCollection()

    Public Property Name() As String Implements IGISDataSource.Name
      Get
        Return name_Renamed
      End Get
      Set
        name_Renamed = Value
      End Set
    End Property

    Public Property DataSourceDefinition() As String Implements IGISDataSource.DataSourceDefinition
      Get
        Return dataSourceDefinition_Renamed
      End Get
      Set
        If dataSourceDefinition_Renamed <> Value Then
          dataSourceDefinition_Renamed = Value
        End If
      End Set
    End Property

    Public Property Identity() As String Implements IGISDataSource.Identity
      Get
        Return identity_Renamed
      End Get
      Set
        identity_Renamed = Value
      End Set
    End Property

    Public Property Page() As Page Implements IGISDataSource.Page
      Get
        Return page_Renamed
      End Get
      Set
        page_Renamed = Value
      End Set
    End Property

    Public Property Resources() As GISResourceCollection Implements IGISDataSource.Resources
      Get
        Return resources_Renamed
      End Get
      Set
        resources_Renamed = Value
      End Set
    End Property

    Private _initialized As Boolean = False

    Public ReadOnly Property Initialized() As Boolean Implements IGISDataSource.Initialized
      Get
        Return _initialized
      End Get
    End Property

    Public Sub LoadState(ByVal state As Hashtable) Implements IGISDataSource.LoadState
      m_state = state

    End Sub

    Public Sub Initialize() Implements IGISDataSource.Initialize
      _initialized = True
    End Sub

    Public Function SaveState() As Hashtable Implements IGISDataSource.SaveState
      Return m_state
    End Function

    Public Sub Dispose() Implements IGISDataSource.Dispose
      _initialized = False
    End Sub

    Public ReadOnly Property State() As Hashtable Implements IGISDataSource.State
      Get
        Return m_state
      End Get
    End Property

        Public Function GetAvailableResourceDefinitions(ByVal resourceType As System.Type) As String() Implements IGISDataSource.GetAvailableResourceDefinitions
            Throw New Exception("The method or operation is not implemented.")
        End Function

    Public Function CreateResource(ByVal resourceDefinition As String, ByVal name_Renamed As String) As IGISResource Implements IGISDataSource.CreateResource
      Throw New Exception("The method or operation is not implemented.")
    End Function

    #End Region
  End Class
End Namespace