' 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 ESRI.ArcGIS.ADF.Web.DataSources
Imports System.Collections

Imports ESRI.ArcGIS.ADF.Web.Display.Graphics
Imports ESRI.ArcGIS.ADF.Web.Display.Drawing
Imports ESRI.ArcGIS.ADF.Web.Geometry
Imports ESRI.ArcGIS.ADF.Web.SpatialReference

Namespace REXMLDataSource_VBNet
  Public Class MapInformation
    Implements IMapInformation
    Public Sub New(ByVal graphics As GraphicsDataSet)
      Me.graphics = graphics
    End Sub

    Private dataFrame_Renamed As String = String.Empty
    Private defaultSpatialReference_Renamed As SpatialReference = Nothing
    Private tileCacheInfo_Renamed As TileCacheInfo = Nothing
    Private graphics As GraphicsDataSet = Nothing

    Public ReadOnly Property DataFrame() As String Implements IMapInformation.DataFrame
      Get
        Return dataFrame_Renamed
      End Get
    End Property

    Public ReadOnly Property DefaultSpatialReference() As SpatialReference Implements IMapInformation.DefaultSpatialReference
      Get
        Return defaultSpatialReference_Renamed
      End Get
    End Property

    Public ReadOnly Property DefaultExtent() As Envelope Implements IMapInformation.DefaultExtent
      Get
        If graphics Is Nothing Then
          Return Nothing
        Else
          Return graphics.DefaultExtent
        End If
      End Get
    End Property

    Public ReadOnly Property FullExtent() As Envelope Implements IMapInformation.FullExtent
      Get
        If graphics Is Nothing Then
          Return Nothing
        Else
          Return graphics.FullExtent
        End If
      End Get
    End Property

    Public Property TileCacheInfo() As TileCacheInfo Implements IMapInformation.TileCacheInfo
      Get
        Return tileCacheInfo_Renamed
      End Get
      Set
        tileCacheInfo_Renamed = Value
      End Set
    End Property
  End Class
End Namespace