migrationanalysis/src/driver_docs/sources/IssueInfo.cls

   1 VERSION 1.0 CLASS
   2 BEGIN
   3   MultiUse = -1  'True
   4 END
   5 Attribute VB_Name = "IssueInfo"
   6 Attribute VB_GlobalNameSpace = False
   7 Attribute VB_Creatable = False
   8 Attribute VB_PredeclaredId = False
   9 Attribute VB_Exposed = False
  10 '/*************************************************************************
  11 ' *
  12 ' * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  13 ' *
  14 ' * Copyright 2008 by Sun Microsystems, Inc.
  15 ' *
  16 ' * OpenOffice.org - a multi-platform office productivity suite
  17 ' *
  18 ' * $RCSfile: IssueInfo.cls,v $
  19 ' *
  20 ' * This file is part of OpenOffice.org.
  21 ' *
  22 ' * OpenOffice.org is free software: you can redistribute it and/or modify
  23 ' * it under the terms of the GNU Lesser General Public License version 3
  24 ' * only, as published by the Free Software Foundation.
  25 ' *
  26 ' * OpenOffice.org is distributed in the hope that it will be useful,
  27 ' * but WITHOUT ANY WARRANTY; without even the implied warranty of
  28 ' * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  29 ' * GNU Lesser General Public License version 3 for more details
  30 ' * (a copy is included in the LICENSE file that accompanied this code).
  31 ' *
  32 ' * You should have received a copy of the GNU Lesser General Public License
  33 ' * version 3 along with OpenOffice.org.  If not, see
  34 ' * <http://www.openoffice.org/license.html>
  35 ' * for a copy of the LGPLv3 License.
  36 ' *
  37 ' ************************************************************************/
  38
  39 Option Explicit
  40
  41 Private mIssueID As Integer
  42 Private mIssueType As String
  43 Private mSubType As String
  44 Private mIssueTypeXML As String
  45 Private mSubTypeXML As String
  46 Private mLocationXML As String
  47 Private mLocation As String
  48 Private mSubLocation As Variant
  49 Private mLine As Long
  50 Private mColumn As Variant
  51 Private mAttributes As Collection
  52 Private mValues As Collection
  53 Private mPreparable As Boolean
  54
  55 'General Constants
  56 Public Property Get CLocationDocument() As String
  57     CLocationDocument = RID_STR_COMMON_RESULTS_LOCATION_TYPE_DOCUMENT
  58 End Property
  59 Public Property Get CLocationPage() As String
  60     CLocationPage = RID_STR_COMMON_RESULTS_LOCATION_TYPE_PAGE
  61 End Property
  62 Public Property Get CLocationWorkBook() As String
  63     CLocationWorkBook = RID_STR_COMMON_RESULTS_LOCATION_TYPE_WORKBOOK
  64 End Property
  65 Public Property Get CLocationSheet() As String
  66     CLocationSheet = RID_STR_COMMON_RESULTS_LOCATION_TYPE_SHEET
  67 End Property
  68 Public Property Get CLocationPresentation() As String
  69     CLocationPresentation = RID_STR_COMMON_RESULTS_LOCATION_TYPE_PRESENTATION
  70 End Property
  71 Public Property Get CLocationSlide() As String
  72     CLocationSlide = RID_STR_COMMON_RESULTS_LOCATION_TYPE_SLIDE
  73 End Property
  74
  75 'General XML Constants - NOT localised
  76 Public Property Get CXMLLocationDocument() As String
  77     CXMLLocationDocument = "Document"
  78 End Property
  79 Public Property Get CXMLLocationPage() As String
  80     CXMLLocationPage = "Page"
  81 End Property
  82 Public Property Get CXMLLocationWorkBook() As String
  83     CXMLLocationWorkBook = "Workbook"
  84 End Property
  85 Public Property Get CXMLLocationSheet() As String
  86     CXMLLocationSheet = "Sheet"
  87 End Property
  88 Public Property Get CXMLLocationPresentation() As String
  89     CXMLLocationPresentation = "Presentation"
  90 End Property
  91 Public Property Get CXMLLocationSlide() As String
  92     CXMLLocationSlide = "Slide"
  93 End Property
  94
  95 'Settable Properties
  96 Public Property Get IssueID() As Integer
  97     IssueID = mIssueID
  98 End Property
  99
 100 Public Property Let IssueID(ByVal vNewValue As Integer)
 101     mIssueID = vNewValue
 102 End Property
 103 Public Property Get IssueType() As String
 104     IssueType = mIssueType
 105 End Property
 106
 107 Public Property Let IssueType(ByVal vNewValue As String)
 108     mIssueType = vNewValue
 109 End Property
 110 Public Property Get IssueTypeXML() As String
 111     IssueTypeXML = mIssueTypeXML
 112 End Property
 113
 114 Public Property Let IssueTypeXML(ByVal vNewValue As String)
 115     mIssueTypeXML = vNewValue
 116 End Property
 117 Public Property Get SubType() As String
 118     SubType = mSubType
 119 End Property
 120
 121 Public Property Let SubType(ByVal vNewValue As String)
 122     mSubType = vNewValue
 123 End Property
 124 Public Property Get SubTypeXML() As String
 125     SubTypeXML = mSubTypeXML
 126 End Property
 127
 128 Public Property Let SubTypeXML(ByVal vNewValue As String)
 129     mSubTypeXML = vNewValue
 130 End Property
 131
 132 Public Property Get Location() As String
 133     Location = mLocation
 134 End Property
 135
 136 Public Property Let Location(ByVal vNewValue As String)
 137     mLocation = vNewValue
 138 End Property
 139 Public Property Get locationXML() As String
 140     locationXML = mLocationXML
 141 End Property
 142
 143 Public Property Let locationXML(ByVal vNewValue As String)
 144     mLocationXML = vNewValue
 145 End Property
 146
 147 Public Property Get SubLocation() As Variant
 148     SubLocation = mSubLocation
 149 End Property
 150
 151 Public Property Let SubLocation(ByVal vNewValue As Variant)
 152     mSubLocation = vNewValue
 153 End Property
 154
 155 Public Property Get Line() As Long
 156     Line = mLine
 157 End Property
 158
 159 Public Property Let Line(ByVal vNewValue As Long)
 160     mLine = vNewValue
 161 End Property
 162 Public Property Get column() As Variant
 163     column = mColumn
 164 End Property
 165
 166 Public Property Let column(ByVal vNewValue As Variant)
 167     mColumn = vNewValue
 168 End Property
 169
 170 Public Property Get Attributes() As Collection
 171     Set Attributes = mAttributes
 172 End Property
 173
 174 Public Property Let Attributes(ByVal vNewValue As Collection)
 175     Set mAttributes = vNewValue
 176 End Property
 177 Public Property Get Values() As Collection
 178     Set Values = mValues
 179 End Property
 180
 181 Public Property Let Values(ByVal vNewValue As Collection)
 182     Set mValues = vNewValue
 183 End Property
 184
 185 Public Property Get Preparable() As Boolean
 186     Preparable = mPreparable
 187 End Property
 188
 189 Public Property Let Preparable(ByVal vNewValue As Boolean)
 190     mPreparable = vNewValue
 191 End Property
 192
 193
 194
 195 Private Sub Class_Initialize()
 196     Set mAttributes = New Collection
 197     Set mValues = New Collection
 198     mIssueID = -1
 199     mLine = -1
 200     mColumn = ""
 201     mSubLocation = ""
 202     mPreparable = False
 203 End Sub
 204 Private Sub Class_Terminate()
 205     Set mAttributes = Nothing
 206     Set mValues = Nothing
 207 End Sub
 208