[pywin32-checkins] pywin32/com/TestSources/PyCOMVBTest EnumerableCollection.cls,NONE,1.1 PyCOMVBTest.vbp,1.7,1.8 Tester.cls,1.7,1.8

[<mha...@us...>]

Update of /cvsroot/pywin32/pywin32/com/TestSources/PyCOMVBTest
In directory sc8-pr-cvs1:/tmp/cvs-serv31253

Modified Files:
	PyCOMVBTest.vbp Tester.cls 
Added Files:
	EnumerableCollection.cls 
Log Message:
Add an enumerable collection to our test object.


--- NEW FILE: EnumerableCollection.cls ---
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "EnumerableCollection"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private col As New Collection

Public Property Get Count() As Integer
    Count = col.Count
End Property

Public Sub Add(ByVal Item As Variant)
    col.Add Item
End Sub

' Default property
Public Property Get Item(v As Variant) As Variant
Attribute Item.VB_UserMemId = 0
    Set Item = col(v)
End Property

' NewEnum must have the procedure ID -4 in Procedure Attributes dialog
' This procedure is *not* marked as hidden
Public Function NewEnum() As IEnumVARIANT
Attribute NewEnum.VB_UserMemId = -4
    Set NewEnum = col.[_NewEnum]
End Function


Index: PyCOMVBTest.vbp
===================================================================
RCS file: /cvsroot/pywin32/pywin32/com/TestSources/PyCOMVBTest/PyCOMVBTest.vbp,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** PyCOMVBTest.vbp	18 Dec 2002 05:02:17 -0000	1.7
--- PyCOMVBTest.vbp	23 Oct 2003 07:24:24 -0000	1.8
***************
*** 4,7 ****
--- 4,8 ----
  Class=IPyComTestInterface; IPyComTestInterface.cls
  Class=PyComTestImplementation; PyComTestImplementation.cls
+ Class=EnumerableCollection; EnumerableCollection.cls
  Startup="(None)"
  HelpFile=""

Index: Tester.cls
===================================================================
RCS file: /cvsroot/pywin32/pywin32/com/TestSources/PyCOMVBTest/Tester.cls,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Tester.cls	18 Dec 2002 05:02:17 -0000	1.7
--- Tester.cls	23 Oct 2003 07:24:24 -0000	1.8
***************
*** 28,31 ****
--- 28,33 ----
  Private mvarArrayProperty As Variant 'local copy
  
+ Public EnumerableCollectionProperty As New EnumerableCollection 'local copy
+ 
  Public Type SubSubStruct
      int_val As Integer