'****************************************************************************
'* Copyright (C) 2004 Leonard James Foster *
'* This file is part of CEBIsoftware. *
'* *
'* CEBIsoftware is distributed under the terms of *
'* the GNU General Public License. See src/COPYING.TXT or *
'* <http://www.gnu.org/licenses/gpl.txt> for details. *
'* *
'* CEBIsoftware is free software; you can redistribute it *
'* and/or modify it under the terms of the GNU *
'* General Public License as published by the Free *
'* Software Foundation; either version 2 of the *
'* License, or (at your option) any later version. *
'* *
'* CEBIsoftware is distributed in the hope that it will be *
'* useful, but WITHOUT ANY WARRANTY; without even the *
'* implied warranty of MERCHANTABILITY or FITNESS FOR *
'* A PARTICULAR PURPOSE. See the GNU General Public *
'* License for more details. *
'* *
'* You should have received a copy of the GNU General *
'* Public License along with CEBIsoftware; if not, write to *
'* the Free Software Foundation, Inc., 59 Temple *
'* Place, Suite 330, Boston, MA 02111-1307 USA *
'* *
'* Purpose: <to be filled in>. *
'* *
'****************************************************************************
'****************************************************************************
'* CEBI *
'* Software Development Group *
'* Leonard James Foster *
'* E-mail: lfoster@bmb.sdu.dk *
'* WWW: http://www.cebi.sdu.dk/ *
'* *
'* Program for post-processing of result from search in mass *
'* spectrometric data. *
'* *
'* FILENAME: ProteinList.vb *
'* TYPE: VISUAL_BASIC *
'* *
'* CREATED: PM 2003-??-?? Vrs 1.0. *
'* UPDATED: PM 2004-xx-xx *
'* *
'****************************************************************************
Option Explicit On
Option Strict Off
'------------------------------------------------------------------------------
' <autogenerated>
' This code was generated by a tool.
' Runtime Version: 1.0.3705.288
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------
Imports System
Imports System.Data
Imports System.Runtime.Serialization
Imports System.Xml
Namespace someVeryNiceNamespace
<Serializable(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Diagnostics.DebuggerStepThrough(), _
System.ComponentModel.ToolboxItem(True)> _
Public Class ProteinList
Inherits DataSet
Private tableProteins As ProteinsDataTable
Public Sub New()
MyBase.New()
Me.InitClass()
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
MyBase.New()
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(System.String)), String)
If (Not (strSchema) Is Nothing) Then
Dim ds As DataSet = New DataSet()
ds.ReadXmlSchema(New XmlTextReader(New System.IO.StringReader(strSchema)))
If (Not (ds.Tables("Proteins")) Is Nothing) Then
Me.Tables.Add(New ProteinsDataTable(ds.Tables("Proteins")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, False, System.Data.MissingSchemaAction.Add)
Me.InitVars()
Else
Me.InitClass()
End If
Me.GetSerializationData(info, context)
Dim schemaChangedHandler As System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
<System.ComponentModel.Browsable(False), _
System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Proteins() As ProteinsDataTable
Get
Return Me.tableProteins
End Get
End Property
Public Overrides Function Clone() As DataSet
Dim cln As ProteinList = CType(MyBase.Clone, ProteinList)
cln.InitVars()
Return cln
End Function
Protected Overrides Function ShouldSerializeTables() As Boolean
Return False
End Function
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return False
End Function
Protected Overrides Sub ReadXmlSerializable(ByVal reader As XmlReader)
Me.Reset()
Dim ds As DataSet = New DataSet()
ds.ReadXml(reader)
If (Not (ds.Tables("Proteins")) Is Nothing) Then
Me.Tables.Add(New ProteinsDataTable(ds.Tables("Proteins")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, False, System.Data.MissingSchemaAction.Add)
Me.InitVars()
End Sub
Protected Overrides Function GetSchemaSerializable() As System.Xml.Schema.XmlSchema
Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream()
Me.WriteXmlSchema(New XmlTextWriter(stream, Nothing))
stream.Position = 0
Return System.Xml.Schema.XmlSchema.Read(New XmlTextReader(stream), Nothing)
End Function
Friend Sub InitVars()
Me.tableProteins = CType(Me.Tables("Proteins"), ProteinsDataTable)
If (Not (Me.tableProteins) Is Nothing) Then
Me.tableProteins.InitVars()
End If
End Sub
Private Sub InitClass()
Me.DataSetName = "ProteinList"
Me.Prefix = ""
Me.Namespace = "http://www.tempuri.org/ProteinList.xsd"
Me.Locale = New System.Globalization.CultureInfo("en-US")
Me.CaseSensitive = False
Me.EnforceConstraints = True
Me.tableProteins = New ProteinsDataTable()
Me.Tables.Add(Me.tableProteins)
End Sub
Private Function ShouldSerializeProteins() As Boolean
Return False
End Function
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars()
End If
End Sub
Public Delegate Sub ProteinsRowChangeEventHandler(ByVal sender As Object, ByVal e As ProteinsRowChangeEvent)
<System.Diagnostics.DebuggerStepThrough()> _
Public Class ProteinsDataTable
Inherits DataTable
Implements System.Collections.IEnumerable
Private columnUniqID As DataColumn
Private columnSearchID As DataColumn
Private columnHitNumber As DataColumn
Private columnProteinDescriptor As DataColumn
Private columnDatabaseSearched As DataColumn
Private columnDatabaseID As DataColumn
Private columnSpecies As DataColumn
Private columnRatio1 As DataColumn
Private columnStErr1 As DataColumn
Private columnRatio2 As DataColumn
Private columnStErr2 As DataColumn
Private columnMascotScore As DataColumn
Friend Sub New()
MyBase.New("Proteins")
Me.InitClass()
End Sub
Friend Sub New(ByVal table As DataTable)
MyBase.New(table.TableName)
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
Me.DisplayExpression = table.DisplayExpression
End Sub
<System.ComponentModel.Browsable(False)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
Friend ReadOnly Property UniqIDColumn() As DataColumn
Get
Return Me.columnUniqID
End Get
End Property
Friend ReadOnly Property SearchIDColumn() As DataColumn
Get
Return Me.columnSearchID
End Get
End Property
Friend ReadOnly Property HitNumberColumn() As DataColumn
Get
Return Me.columnHitNumber
End Get
End Property
Friend ReadOnly Property ProteinDescriptorColumn() As DataColumn
Get
Return Me.columnProteinDescriptor
End Get
End Property
Friend ReadOnly Property DatabaseSearchedColumn() As DataColumn
Get
Return Me.columnDatabaseSearched
End Get
End Property
Friend ReadOnly Property DatabaseIDColumn() As DataColumn
Get
Return Me.columnDatabaseID
End Get
End Property
Friend ReadOnly Property SpeciesColumn() As DataColumn
Get
Return Me.columnSpecies
End Get
End Property
Friend ReadOnly Property Ratio1Column() As DataColumn
Get
Return Me.columnRatio1
End Get
End Property
Friend ReadOnly Property StErr1Column() As DataColumn
Get
Return Me.columnStErr1
End Get
End Property
Friend ReadOnly Property Ratio2Column() As DataColumn
Get
Return Me.columnRatio2
End Get
End Property
Friend ReadOnly Property StErr2Column() As DataColumn
Get
Return Me.columnStErr2
End Get
End Property
Friend ReadOnly Property MascotScoreColumn() As DataColumn
Get
Return Me.columnMascotScore
End Get
End Property
Default Public ReadOnly Property Item(ByVal index As Integer) As ProteinsRow
Get
Return CType(Me.Rows(index), ProteinsRow)
End Get
End Property
Public Event ProteinsRowChanged As ProteinsRowChangeEventHandler
Public Event ProteinsRowChanging As ProteinsRowChangeEventHandler
Public Event ProteinsRowDeleted As ProteinsRowChangeEventHandler
Public Event ProteinsRowDeleting As ProteinsRowChangeEventHandler
Public Overloads Sub AddProteinsRow(ByVal row As ProteinsRow)
Me.Rows.Add(row)
End Sub
Public Overloads Function AddProteinsRow(ByVal UniqID As Long, ByVal SearchID As Long, ByVal HitNumber As Integer, ByVal ProteinDescriptor As String, ByVal DatabaseSearched As String, ByVal DatabaseID As String, ByVal Species As String, ByVal Ratio1 As Decimal, ByVal StErr1 As Decimal, ByVal Ratio2 As Decimal, ByVal StErr2 As Decimal, ByVal MascotScore As Integer) As ProteinsRow
Dim rowProteinsRow As ProteinsRow = CType(Me.NewRow, ProteinsRow)
rowProteinsRow.ItemArray = New Object() {UniqID, SearchID, HitNumber, ProteinDescriptor, DatabaseSearched, DatabaseID, Species, Ratio1, StErr1, Ratio2, StErr2, MascotScore}
Me.Rows.Add(rowProteinsRow)
Return rowProteinsRow
End Function
Public Function FindByUniqID(ByVal UniqID As Long) As ProteinsRow
Return CType(Me.Rows.Find(New Object() {UniqID}), ProteinsRow)
End Function
Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
Public Overrides Function Clone() As DataTable
Dim cln As ProteinsDataTable = CType(MyBase.Clone, ProteinsDataTable)
cln.InitVars()
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New ProteinsDataTable()
End Function
Friend Sub InitVars()
Me.columnUniqID = Me.Columns("UniqID")
Me.columnSearchID = Me.Columns("SearchID")
Me.columnHitNumber = Me.Columns("HitNumber")
Me.columnProteinDescriptor = Me.Columns("ProteinDescriptor")
Me.columnDatabaseSearched = Me.Columns("DatabaseSearched")
Me.columnDatabaseID = Me.Columns("DatabaseID")
Me.columnSpecies = Me.Columns("Species")
Me.columnRatio1 = Me.Columns("Ratio1")
Me.columnStErr1 = Me.Columns("StErr1")
Me.columnRatio2 = Me.Columns("Ratio2")
Me.columnStErr2 = Me.Columns("StErr2")
Me.columnMascotScore = Me.Columns("MascotScore")
End Sub
Private Sub InitClass()
Me.columnUniqID = New DataColumn("UniqID", GetType(System.Int64), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnUniqID)
Me.columnSearchID = New DataColumn("SearchID", GetType(System.Int64), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnSearchID)
Me.columnHitNumber = New DataColumn("HitNumber", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnHitNumber)
Me.columnProteinDescriptor = New DataColumn("ProteinDescriptor", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnProteinDescriptor)
Me.columnDatabaseSearched = New DataColumn("DatabaseSearched", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnDatabaseSearched)
Me.columnDatabaseID = New DataColumn("DatabaseID", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnDatabaseID)
Me.columnSpecies = New DataColumn("Species", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnSpecies)
Me.columnRatio1 = New DataColumn("Ratio1", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnRatio1)
Me.columnStErr1 = New DataColumn("StErr1", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnStErr1)
Me.columnRatio2 = New DataColumn("Ratio2", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnRatio2)
Me.columnStErr2 = New DataColumn("StErr2", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnStErr2)
Me.columnMascotScore = New DataColumn("MascotScore", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.columnMascotScore)
Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.columnUniqID}, True))
Me.columnUniqID.AllowDBNull = False
Me.columnUniqID.Unique = True
Me.columnSearchID.AllowDBNull = False
Me.columnHitNumber.AllowDBNull = False
End Sub
Public Function NewProteinsRow() As ProteinsRow
Return CType(Me.NewRow, ProteinsRow)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New ProteinsRow(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(ProteinsRow)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.ProteinsRowChangedEvent) Is Nothing) Then
RaiseEvent ProteinsRowChanged(Me, New ProteinsRowChangeEvent(CType(e.Row, ProteinsRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.ProteinsRowChangingEvent) Is Nothing) Then
RaiseEvent ProteinsRowChanging(Me, New ProteinsRowChangeEvent(CType(e.Row, ProteinsRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.ProteinsRowDeletedEvent) Is Nothing) Then
RaiseEvent ProteinsRowDeleted(Me, New ProteinsRowChangeEvent(CType(e.Row, ProteinsRow), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.ProteinsRowDeletingEvent) Is Nothing) Then
RaiseEvent ProteinsRowDeleting(Me, New ProteinsRowChangeEvent(CType(e.Row, ProteinsRow), e.Action))
End If
End Sub
Public Sub RemoveProteinsRow(ByVal row As ProteinsRow)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class ProteinsRow
Inherits DataRow
Private tableProteins As ProteinsDataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.tableProteins = CType(Me.Table, ProteinsDataTable)
End Sub
Public Property UniqID() As Long
Get
Return CType(Me(Me.tableProteins.UniqIDColumn), Long)
End Get
Set(ByVal Value As Long)
Me(Me.tableProteins.UniqIDColumn) = Value
End Set
End Property
Public Property SearchID() As Long
Get
Return CType(Me(Me.tableProteins.SearchIDColumn), Long)
End Get
Set(ByVal Value As Long)
Me(Me.tableProteins.SearchIDColumn) = Value
End Set
End Property
Public Property HitNumber() As Integer
Get
Return CType(Me(Me.tableProteins.HitNumberColumn), Integer)
End Get
Set(ByVal Value As Integer)
Me(Me.tableProteins.HitNumberColumn) = Value
End Set
End Property
Public Property ProteinDescriptor() As String
Get
Try
Return CType(Me(Me.tableProteins.ProteinDescriptorColumn), String)
Catch exceptionObject As InvalidCastException
Throw New StrongTypingException( _
"Cannot get value because it is DBNull.", _
exceptionObject)
End Try
End Get
Set(ByVal Value As String)
Me(Me.tableProteins.ProteinDescriptorColumn) = Value
End Set
End Property
Public Property DatabaseSearched() As String
Get
Try
Return CType(Me(Me.tableProteins.DatabaseSearchedColumn), String)
Catch exceptionObject As InvalidCastException
Throw New StrongTypingException( _
"Cannot get value because it is DBNull.", _
exceptionObject)
End Try
End Get
Set(ByVal Value As String)
Me(Me.tableProteins.DatabaseSearchedColumn) = Value
End Set
End Property
Public Property DatabaseID() As String
Get
Try
Return CType(Me(Me.tableProteins.DatabaseIDColumn), String)
Catch exceptionObject As InvalidCastException
Throw New StrongTypingException( _
"Cannot get value because it is DBNull.", _
exceptionObject)
End Try
End Get
Set(ByVal Value As String)
Me(Me.tableProteins.DatabaseIDColumn) = Value
End Set
End Property
Public Property Species() As String
Get
Try
Return CType(Me(Me.tableProteins.SpeciesColumn), String)
Catch exceptionObject As InvalidCastException
Throw New StrongTypingException( _
"Cannot get value because it is DBNull.", _
exceptionObject)
End Try
End Get
Set(ByVal Value As String)
Me(Me.tableProteins.SpeciesColumn) = Value
End Set
End Property
Public Property Ratio1() As Decimal
Get
Try
Return CType(Me(Me.tableProteins.Ratio1Column), Decimal)
Catch exceptionObject As InvalidCastException
Throw New StrongTypingException( _
"Cannot get value because it is DBNull.", _
exceptionObject)
End Try
End Get
Set(ByVal Value As Decimal)
Me(Me.tableProteins.Ratio1Column) = Value
End Set
End Property
Public Property StErr1() As Decimal
Get
Try
Return CType(Me(Me.tableProteins.StErr1Column), Decimal)
Catch exceptionObject As InvalidCastException
Throw New StrongTypingException( _
"Cannot get value because it is DBNull.", _
exceptionObject)
End Try
End Get
Set(ByVal Value As Decimal)
Me(Me.tableProteins.StErr1Column) = Value
End Set
End Property
Public Property Ratio2() As Decimal
Get
Try
Return CType(Me(Me.tableProteins.Ratio2Column), Decimal)
Catch exceptionObject As InvalidCastException
Throw New StrongTypingException( _
"Cannot get value because it is DBNull.", _
exceptionObject)
End Try
End Get
Set(ByVal Value As Decimal)
Me(Me.tableProteins.Ratio2Column) = Value
End Set
End Property
Public Property StErr2() As Decimal
Get
Try
Return CType(Me(Me.tableProteins.StErr2Column), Decimal)
Catch exceptionObject As InvalidCastException
Throw New StrongTypingException( _
"Cannot get value because it is DBNull.", _
exceptionObject)
End Try
End Get
Set(ByVal Value As Decimal)
Me(Me.tableProteins.StErr2Column) = Value
End Set
End Property
Public Property MascotScore() As Integer
Get
Try
Return CType(Me(Me.tableProteins.MascotScoreColumn), Integer)
Catch exceptionObject As InvalidCastException
Throw New StrongTypingException( _
"Cannot get value because it is DBNull.", _
exceptionObject)
End Try
End Get
Set(ByVal Value As Integer)
Me(Me.tableProteins.MascotScoreColumn) = Value
End Set
End Property
Public Function IsProteinDescriptorNull() As Boolean
Return Me.IsNull(Me.tableProteins.ProteinDescriptorColumn)
End Function
Public Sub SetProteinDescriptorNull()
Me(Me.tableProteins.ProteinDescriptorColumn) = System.Convert.DBNull
End Sub
Public Function IsDatabaseSearchedNull() As Boolean
Return Me.IsNull(Me.tableProteins.DatabaseSearchedColumn)
End Function
Public Sub SetDatabaseSearchedNull()
Me(Me.tableProteins.DatabaseSearchedColumn) = System.Convert.DBNull
End Sub
Public Function IsDatabaseIDNull() As Boolean
Return Me.IsNull(Me.tableProteins.DatabaseIDColumn)
End Function
Public Sub SetDatabaseIDNull()
Me(Me.tableProteins.DatabaseIDColumn) = System.Convert.DBNull
End Sub
Public Function IsSpeciesNull() As Boolean
Return Me.IsNull(Me.tableProteins.SpeciesColumn)
End Function
Public Sub SetSpeciesNull()
Me(Me.tableProteins.SpeciesColumn) = System.Convert.DBNull
End Sub
Public Function IsRatio1Null() As Boolean
Return Me.IsNull(Me.tableProteins.Ratio1Column)
End Function
Public Sub SetRatio1Null()
Me(Me.tableProteins.Ratio1Column) = System.Convert.DBNull
End Sub
Public Function IsStErr1Null() As Boolean
Return Me.IsNull(Me.tableProteins.StErr1Column)
End Function
Public Sub SetStErr1Null()
Me(Me.tableProteins.StErr1Column) = System.Convert.DBNull
End Sub
Public Function IsRatio2Null() As Boolean
Return Me.IsNull(Me.tableProteins.Ratio2Column)
End Function
Public Sub SetRatio2Null()
Me(Me.tableProteins.Ratio2Column) = System.Convert.DBNull
End Sub
Public Function IsStErr2Null() As Boolean
Return Me.IsNull(Me.tableProteins.StErr2Column)
End Function
Public Sub SetStErr2Null()
Me(Me.tableProteins.StErr2Column) = System.Convert.DBNull
End Sub
Public Function IsMascotScoreNull() As Boolean
Return Me.IsNull(Me.tableProteins.MascotScoreColumn)
End Function
Public Sub SetMascotScoreNull()
Me(Me.tableProteins.MascotScoreColumn) = System.Convert.DBNull
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class ProteinsRowChangeEvent
Inherits EventArgs
Private eventRow As ProteinsRow
Private eventAction As DataRowAction
Public Sub New(ByVal row As ProteinsRow, ByVal action As DataRowAction)
MyBase.New()
Me.eventRow = row
Me.eventAction = action
End Sub
Public ReadOnly Property Row() As ProteinsRow
Get
Return Me.eventRow
End Get
End Property
Public ReadOnly Property Action() As DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class
End Namespace
Generated by script codePublish.pl at 2009-01-05T15:20:59.