summaryrefslogtreecommitdiff
path: root/extensions/test
diff options
context:
space:
mode:
authorJoachim Lingner <jl@openoffice.org>2001-12-06 14:03:53 +0000
committerJoachim Lingner <jl@openoffice.org>2001-12-06 14:03:53 +0000
commit72cda827fe64d026668af5d5d4b0db67d7382fae (patch)
tree2e1d90466afbf81924b08d86ab8d9c58697ad890 /extensions/test
parent6ba351a7485d0fec9dde4b02529f8b4befd7783f (diff)
*** empty log message ***
Diffstat (limited to 'extensions/test')
-rw-r--r--extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls19
-rw-r--r--extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.vbw2
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,