[Jcframework-commits] dotnet CPersistenceBroker.vb,1.62,1.63 CPersistentObject.vb,1.40,1.41 IPersistentObject.vb,1.1,1.2

[Richard B. <rb...@us...>]

Update of /cvsroot/jcframework/dotnet
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4342

Modified Files:
	CPersistenceBroker.vb CPersistentObject.vb 
	IPersistentObject.vb 
Log Message:
Additions to IPersistentObject interface
Added method to persistence broker to manually clear the cache

Index: CPersistenceBroker.vb
===================================================================
RCS file: /cvsroot/jcframework/dotnet/CPersistenceBroker.vb,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -d -r1.62 -r1.63
--- CPersistenceBroker.vb	8 Oct 2004 00:06:25 -0000	1.62
+++ CPersistenceBroker.vb	13 Oct 2004 05:19:01 -0000	1.63
@@ -2338,4 +2338,9 @@
 			Return m_disposed
 		End Get
 	End Property
+
+	Public Sub ClearCache()
+		m_cache.Clear()
+	End Sub
+
 End Class
\ No newline at end of file

Index: IPersistentObject.vb
===================================================================
RCS file: /cvsroot/jcframework/dotnet/IPersistentObject.vb,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- IPersistentObject.vb	13 Oct 2004 01:36:35 -0000	1.1
+++ IPersistentObject.vb	13 Oct 2004 05:19:01 -0000	1.2
@@ -39,6 +39,8 @@
 	Function getFieldLengthByName(ByVal x As String) As Integer
 	Function getFieldTypeByName(ByVal x As String) As Type
 
+	Function Equals(ByVal obj As CPersistentObject) As Boolean
+
 	Event MarkedAsDirty As EventHandler
 	Event LoadStarted As EventHandler
 	Event LoadFinished As EventHandler

Index: CPersistentObject.vb
===================================================================
RCS file: /cvsroot/jcframework/dotnet/CPersistentObject.vb,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- CPersistentObject.vb	13 Oct 2004 01:36:35 -0000	1.40
+++ CPersistentObject.vb	13 Oct 2004 05:19:01 -0000	1.41
@@ -1114,7 +1114,7 @@
 	''' 	[rbanks] 	25/11/2003	Created
 	''' </history>
 	'''-----------------------------------------------------------------------------
-	Public Overloads Function Equals(ByVal obj As CPersistentObject) As Boolean
+	Public Overloads Function Equals(ByVal obj As CPersistentObject) As Boolean Implements IPersistentObject.Equals
 		Dim ck1, ck2 As CCacheKey
 		If Me Is Nothing And Not obj Is Nothing Then
 			Return False