cvs -z9 diff (in directory C:\pgadmin2\pgschema\)
cvs diff: Empty password used - try 'cvs login' with a real password

? MSSCCPRJ.SCC
? basDepend.bas
? pgSchema.vbw
? test/MSSCCPRJ.SCC
? test/pgSchema-Test.vbw
cvs server: Diffing .
Index: Views.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/Views.cls,v
retrieving revision 1.27
diff -r1.27 Views.cls
165c165
<   objNewMember.OID = dOID
---
>   objNewMember.Oid = dOID
300c300
< 
---
>   
Index: pgAggregate.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgAggregate.cls,v
retrieving revision 1.20
diff -r1.20 pgAggregate.cls
35a36,37
> Private colDependent As Collection
> Private colReferenced As Collection
163c165
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
172,173c174,175
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Aggregate OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Aggregate OID."
177c179
<   OID = dOID
---
>   Oid = dOID
465a468,492
> 
> 'Return the dependent object is in
> Public Function Dependent() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgAggregate.Function Dependent()", etFullDebug
>   
>   If colDependent Is Nothing Then Set colDependent = DepRef(dOID, cnDatabase, Me.Database, EDR_Depend)
>   Set Dependent = colDependent
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 'Return the referenced object is in
> Public Function Referenced() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgAggregate.Function Dependent()", etFullDebug
>   
>   If colReferenced Is Nothing Then Set colReferenced = DepRef(dOID, cnDatabase, Me.Database, EDR_Reference)
>   Set Referenced = colReferenced
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
Index: pgCast.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgCast.cls,v
retrieving revision 1.2
diff -r1.2 pgCast.cls
30a31,32
> Private colDependent As Collection
> Private colReferenced As Collection
104c106
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
113,114c115,116
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Cast OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Cast OID."
118c120
<   OID = dOID
---
>   Oid = dOID
311a314,339
> 
> 'Return the dependent object is in
> Public Function Dependent() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgCast.Function Dependent()", etFullDebug
>   
>   If colDependent Is Nothing Then Set colDependent = DepRef(dOID, cnDatabase, Me.Database, EDR_Depend)
>   Set Dependent = colDependent
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 'Return the referenced object is in
> Public Function Referenced() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgCast.Function Dependent()", etFullDebug
>   
>   If colReferenced Is Nothing Then Set colReferenced = DepRef(dOID, cnDatabase, Me.Database, EDR_Reference)
>   Set Referenced = colReferenced
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 
Index: pgCheck.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgCheck.cls,v
retrieving revision 1.14
diff -r1.14 pgCheck.cls
261,262d260
< 
< 
Index: pgColumn.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgColumn.cls,v
retrieving revision 1.22
diff -r1.22 pgColumn.cls
186c186
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
195,196c195,196
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the column OID (PostgreSQL 7.1 or lower)."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the column OID (PostgreSQL 7.1 or lower)."
200c200
<   OID = dOID
---
>   Oid = dOID
Index: pgConversion.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgConversion.cls,v
retrieving revision 1.1
diff -r1.1 pgConversion.cls
33a34,35
> Private colDependent As Collection
> Private colReferenced As Collection
150c152
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
159,160c161,162
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Conversion OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Conversion OID."
164c166
<   OID = dOID
---
>   Oid = dOID
374a377,400
> 
> 'Return the dependent object is in
> Public Function Dependent() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgConversion.Function Dependent()", etFullDebug
>   
>   If colDependent Is Nothing Then Set colDependent = DepRef(dOID, cnDatabase, Me.Database, EDR_Depend)
>   Set Dependent = colDependent
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 'Return the referenced object is in
> Public Function Referenced() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgConversion.Function Dependent()", etFullDebug
>   
>   If colReferenced Is Nothing Then Set colReferenced = DepRef(dOID, cnDatabase, Me.Database, EDR_Reference)
>   Set Referenced = colReferenced
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
Index: pgDatabase.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgDatabase.cls,v
retrieving revision 1.47
diff -r1.47 pgDatabase.cls
401c401
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
410,411c410,411
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the OID of the Database."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the OID of the Database."
415c415
<   OID = dOID
---
>   Oid = dOID
988a989,996
>       'Conversions
>       For Each vObject In vNamespaceObject.Conversions
>         If Not vObject.SystemObject Then
>           Set arrObjects(UBound(arrObjects)) = vObject
>           ReDim Preserve arrObjects(UBound(arrObjects) + 1)
>         End If
>       Next vObject
>       
1065a1074,1081
>         
>           'Rules
>           For Each vChildObject In vObject.Rules
>             If Not vChildObject.SystemObject Then
>               Set arrObjects(UBound(arrObjects)) = vChildObject
>               ReDim Preserve arrObjects(UBound(arrObjects) + 1)
>             End If
>           Next vChildObject
1078c1094
<       If arrObjects(Y - 1).OID > arrObjects(Y).OID Then
---
>       If arrObjects(Y - 1).Oid > arrObjects(Y).Oid Then
Index: pgDomain.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgDomain.cls,v
retrieving revision 1.10
diff -r1.10 pgDomain.cls
34a35,36
> Private colDependent As Collection
> Private colReferenced As Collection
154c156
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
163,164c165,166
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Type OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Type OID."
168c170
<   OID = dOID
---
>   Oid = dOID
424a427,451
> 
> 'Return the dependent object is in
> Public Function Dependent() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgDomain.Function Dependent()", etFullDebug
>   
>   If colDependent Is Nothing Then Set colDependent = DepRef(dOID, cnDatabase, Me.Database, EDR_Depend)
>   Set Dependent = colDependent
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 'Return the referenced object is in
> Public Function Referenced() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgDomain.Function Dependent()", etFullDebug
>   
>   If colReferenced Is Nothing Then Set colReferenced = DepRef(dOID, cnDatabase, Me.Database, EDR_Reference)
>   Set Referenced = colReferenced
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
Index: pgForeignKey.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgForeignKey.cls,v
retrieving revision 1.15
diff -r1.15 pgForeignKey.cls
205c205
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
214,215c214,215
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Foreign Key OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Foreign Key OID."
219c219
<   OID = dOID
---
>   Oid = dOID
Index: pgFunction.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgFunction.cls,v
retrieving revision 1.33
diff -r1.33 pgFunction.cls
42a43,44
> Private colDependent As Collection
> Private colReferenced As Collection
201c203
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
210,211c212,213
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Type OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Type OID."
215c217
<   OID = dOID
---
>   Oid = dOID
715a718,743
> 
> 'Return the dependent object is in
> Public Function Dependent() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgFunction.Function Dependent()", etFullDebug
>   
>   If colDependent Is Nothing Then Set colDependent = DepRef(dOID, cnDatabase, Me.Database, EDR_Depend)
>   Set Dependent = colDependent
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 'Return the referenced object is in
> Public Function Referenced() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgFunction.Function Dependent()", etFullDebug
>   
>   If colReferenced Is Nothing Then Set colReferenced = DepRef(dOID, cnDatabase, Me.Database, EDR_Reference)
>   Set Referenced = colReferenced
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 
Index: pgIndex.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgIndex.cls,v
retrieving revision 1.22
diff -r1.22 pgIndex.cls
207c207
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
216,217c216,217
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Index OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Index OID."
221c221
<   OID = dOID
---
>   Oid = dOID
Index: pgLanguage.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgLanguage.cls,v
retrieving revision 1.22
diff -r1.22 pgLanguage.cls
30a31,32
> Private colDependent As Collection
> Private colReferenced As Collection
104c106
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
113,114c115,116
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Language OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Language OID."
118c120
<   OID = dOID
---
>   Oid = dOID
406a409,435
> 
> 'Return the dependent object is in
> Public Function Dependent() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgLanguage.Function Dependent()", etFullDebug
>   
>   If colDependent Is Nothing Then Set colDependent = DepRef(dOID, cnDatabase, Me.Database, EDR_Depend)
>   Set Dependent = colDependent
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 'Return the referenced object is in
> Public Function Referenced() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgLanguage.Function Dependent()", etFullDebug
>   
>   If colReferenced Is Nothing Then Set colReferenced = DepRef(dOID, cnDatabase, Me.Database, EDR_Reference)
>   Set Referenced = colReferenced
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 
> 
Index: pgNamespace.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgNamespace.cls,v
retrieving revision 1.12
diff -r1.12 pgNamespace.cls
39a40,41
> Private colDependent As Collection
> Private colReferenced As Collection
302c304
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
311,312c313,314
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Namespace OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Namespace OID."
316c318
<   OID = dOID
---
>   Oid = dOID
608a611,638
> 
> 'Return the dependent object is in
> Public Function Dependent() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgNamespace.Function Dependent()", etFullDebug
>   
>   If colDependent Is Nothing Then Set colDependent = DepRef(dOID, cnDatabase, Me.Database, EDR_Depend)
>   Set Dependent = colDependent
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 'Return the referenced object is in
> Public Function Referenced() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgNamespace.Function Dependent()", etFullDebug
>   
>   If colReferenced Is Nothing Then Set colReferenced = DepRef(dOID, cnDatabase, Me.Database, EDR_Reference)
>   Set Referenced = colReferenced
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 
> 
> 
Index: pgOperator.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgOperator.cls,v
retrieving revision 1.18
diff -r1.18 pgOperator.cls
41a42,43
> Private colDependent As Collection
> Private colReferenced As Collection
168c170
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
177,178c179,180
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Operator OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Operator OID."
182c184
<   OID = dOID
---
>   Oid = dOID
604a607,635
> 
> 'Return the dependent object is in
> Public Function Dependent() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgOperator.Function Dependent()", etFullDebug
>   
>   If colDependent Is Nothing Then Set colDependent = DepRef(dOID, cnDatabase, Me.Database, EDR_Depend)
>   Set Dependent = colDependent
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 'Return the referenced object is in
> Public Function Referenced() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgOperator.Function Dependent()", etFullDebug
>   
>   If colReferenced Is Nothing Then Set colReferenced = DepRef(dOID, cnDatabase, Me.Database, EDR_Reference)
>   Set Referenced = colReferenced
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 
> 
> 
> 
Index: pgRule.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgRule.cls,v
retrieving revision 1.20
diff -r1.20 pgRule.cls
167c167
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
176,177c176,177
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Rule OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Rule OID."
181c181
<   OID = dOID
---
>   Oid = dOID
Index: pgSchema.vbp
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgSchema.vbp,v
retrieving revision 1.139
diff -r1.139 pgSchema.vbp
2,3c2,3
< Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\WINDOWS\System32\stdole2.tlb#OLE Automation
< Reference=*\G{00000200-0000-0010-8000-00AA006D2EA4}#2.0#0#..\..\..\..\..\Program Files\Common Files\system\ado\msado20.tlb#Microsoft ActiveX Data Objects 2.0 Library
---
> Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\WINNT\System32\Stdole2.tlb#OLE Automation
> Reference=*\G{00000200-0000-0010-8000-00AA006D2EA4}#2.0#0#..\..\Programmi\File comuni\system\ado\msado20.tlb#Microsoft ActiveX Data Objects 2.0 Library
56a57
> Module=basDepend; basDepend.bas
71c72
< RevisionVer=23
---
> RevisionVer=29
Index: pgSequence.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgSequence.cls,v
retrieving revision 1.25
diff -r1.25 pgSequence.cls
35a36,37
> Private colDependent As Collection
> Private colReferenced As Collection
155c157
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
164,165c166,167
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Sequence OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Sequence OID."
169c171
<   OID = dOID
---
>   Oid = dOID
616a619,648
> 
> 'Return the dependent object is in
> Public Function Dependent() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgSequence.Function Dependent()", etFullDebug
>   
>   If colDependent Is Nothing Then Set colDependent = DepRef(dOID, cnDatabase, Me.Database, EDR_Depend)
>   Set Dependent = colDependent
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 'Return the referenced object is in
> Public Function Referenced() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgSequence.Function Dependent()", etFullDebug
>   
>   If colReferenced Is Nothing Then Set colReferenced = DepRef(dOID, cnDatabase, Me.Database, EDR_Reference)
>   Set Referenced = colReferenced
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 
> 
> 
> 
> 
Index: pgTable.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgTable.cls,v
retrieving revision 1.34
diff -r1.34 pgTable.cls
40a41,42
> Private colDependent As Collection
> Private colReferenced As Collection
283d284
< Attribute Rules.VB_Description = "Returns a collection of Rules."
320c321
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
329,330c330,331
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Table OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Table OID."
334c335
<   OID = dOID
---
>   Oid = dOID
841a843,873
> 
> 'Return the dependent object is in
> Public Function Dependent() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgTable.Function Dependent()", etFullDebug
>   
>   If colDependent Is Nothing Then Set colDependent = DepRef(dOID, cnDatabase, Me.Database, EDR_Depend)
>   Set Dependent = colDependent
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 'Return the referenced object is in
> Public Function Referenced() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgTable.Function Dependent()", etFullDebug
>   
>   If colReferenced Is Nothing Then Set colReferenced = DepRef(dOID, cnDatabase, Me.Database, EDR_Reference)
>   Set Referenced = colReferenced
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 
> 
> 
> 
> 
> 
Index: pgTrigger.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgTrigger.cls,v
retrieving revision 1.25
diff -r1.25 pgTrigger.cls
153c153
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
162,163c162,163
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Trigger OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Trigger OID."
167c167
<   OID = dOID
---
>   Oid = dOID
Index: pgType.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgType.cls,v
retrieving revision 1.20
diff -r1.20 pgType.cls
38a39,40
> Private colDependent As Collection
> Private colReferenced As Collection
158c160
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
167,168c169,170
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the Type OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the Type OID."
172c174
<   OID = dOID
---
>   Oid = dOID
528a531,562
> 
> 'Return the dependent object is in
> Public Function Dependent() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgType.Function Dependent()", etFullDebug
>   
>   If colDependent Is Nothing Then Set colDependent = DepRef(dOID, cnDatabase, Me.Database, EDR_Depend)
>   Set Dependent = colDependent
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 'Return the referenced object is in
> Public Function Referenced() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgType.Function Dependent()", etFullDebug
>   
>   If colReferenced Is Nothing Then Set colReferenced = DepRef(dOID, cnDatabase, Me.Database, EDR_Reference)
>   Set Referenced = colReferenced
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 
> 
> 
> 
> 
> 
> 
Index: pgView.cls
===================================================================
RCS file: /disk1/cvsroot/pgschema/pgView.cls,v
retrieving revision 1.43
diff -r1.43 pgView.cls
19a20,22
> 'Collections
> Private colRules As Rules
> 
31a35,36
> Private colDependent As Collection
> Private colReferenced As Collection
152c157
< Friend Property Let OID(ByVal vData As Double)
---
> Friend Property Let Oid(ByVal vData As Double)
161,162c166,167
< Public Property Get OID() As Double
< Attribute OID.VB_Description = "Returns the View OID."
---
> Public Property Get Oid() As Double
> Attribute Oid.VB_Description = "Returns the View OID."
166c171
<   OID = dOID
---
>   Oid = dOID
421a427,448
> 'Return the Rules Collection
> Public Property Get Rules() As Rules
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgView.Property Get Rules()", etFullDebug
> 
>   If colRules Is Nothing Then
>     Set colRules = New Rules
> 
>     'Pass the connection to the class
>     Set colRules.Connection = cnDatabase
>     colRules.TableOID = dOID
>     colRules.Table = szName
>     colRules.Namespace = szNamespace
>     colRules.NamespaceOID = dNamespaceOID
>     colRules.Initialize
>   End If
>   Set Rules = colRules
>     
>   Exit Property
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Property
> 
573a601,633
> 
> 'Return the dependent object is in
> Public Function Dependent() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgView.Function Dependent()", etFullDebug
>   
>   If colDependent Is Nothing Then Set colDependent = DepRef(dOID, cnDatabase, Me.Database, EDR_Depend)
>   Set Dependent = colDependent
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 'Return the referenced object is in
> Public Function Referenced() As Collection
> If inIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler
> objServer.iLogEvent "Entering " & App.Title & ":pgView.Function Dependent()", etFullDebug
>   
>   If colReferenced Is Nothing Then Set colReferenced = DepRef(dOID, cnDatabase, Me.Database, EDR_Reference)
>   Set Referenced = colReferenced
>   
>   Exit Function
> Err_Handler:  objServer.iLogError Err.Number, Err.Description
> End Function
> 
> 
> 
> 
> 
> 
> 
> 
> 
cvs server: Diffing test
Index: test/pgSchema-Test.vbp
===================================================================
RCS file: /disk1/cvsroot/pgschema/test/pgSchema-Test.vbp,v
retrieving revision 1.15
diff -r1.15 pgSchema-Test.vbp
2c2
< Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\WINDOWS\System32\stdole2.tlb#OLE Automation
---
> Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WINNT\System32\Stdole2.tlb#OLE Automation
4c4
< Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; mscomctl.ocx
---
> Object={831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0; MSCOMCTL.OCX
Index: test/pgSchema.vbg
===================================================================
RCS file: /disk1/cvsroot/pgschema/test/pgSchema.vbg,v
retrieving revision 1.6
diff -r1.6 pgSchema.vbg
2,3c2,3
< StartupProject=..\pgSchema.vbp
< Project=pgSchema-Test.vbp
---
> Project=..\pgSchema.vbp
> StartupProject=pgSchema-Test.vbp


***** CVS exited normally with code 1 *****

