From 72cda827fe64d026668af5d5d4b0db67d7382fae Mon Sep 17 00:00:00 2001
From: Joachim Lingner <jl@openoffice.org>
Date: Thu, 6 Dec 2001 14:03:53 +0000
Subject: *** empty log message ***

---
 .../VBEventListener/VBEventListener.cls               | 19 +++++++++++++++++++
 .../VBEventListener/VBasicEventListener.vbw           |  2 +-
 2 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls b/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls
index 77e9b3c8ca29..9fd9cc46f4f8 100644
--- a/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls
+++ b/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls
@@ -13,6 +13,8 @@ Attribute VB_PredeclaredId = False
 Attribute VB_Exposed = True
 Option Explicit
 Private interfaces(0) As String
+Private bDisposingCalled As Boolean
+Private bQuiet As Boolean
 
 Public Property Get Bridge_ImplementedInterfaces() As Variant
     Bridge_ImplementedInterfaces = interfaces
@@ -20,6 +22,8 @@ End Property
 
 Private Sub Class_Initialize()
 interfaces(0) = "com.sun.star.lang.XEventListener"
+bDisposingCalled = False
+bQuiet = False
 End Sub
 
 Private Sub Class_Terminate()
@@ -28,5 +32,20 @@ Private Sub Class_Terminate()
 End Sub
 
 Public Sub disposing(ByVal source As Object)
+    If bQuiet = False Then
     MsgBox "disposing called"
+    End If
+    bDisposingCalled = True
 End Sub
+
+Public Sub setQuiet(quiet As Boolean)
+    bQuiet = quiet
+End Sub
+
+Public Sub resetDisposing()
+    bDisposingCalled = False
+End Sub
+
+Public Function disposingCalled()
+    disposingCalled = bDisposingCalled
+End Function
diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.vbw b/extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.vbw
index 3fad49ae422f..db6cadf2d5ef 100644
--- a/extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.vbw
+++ b/extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.vbw
@@ -1,2 +1,2 @@
-VBEventListener = 74, 32, 815, 788, Z
+VBEventListener = 63, 11, 804, 767, Z
 Module1 = 169, 194, 954, 691, 
-- 
cgit v1.2.3