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