*** empty log message ***

2 files changed, 20 insertions, 1 deletions

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,