summaryrefslogtreecommitdiff
path: root/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls
diff options
context:
space:
mode:
authorJoachim Lingner <jl@openoffice.org>2001-11-27 17:06:48 +0000
committerJoachim Lingner <jl@openoffice.org>2001-11-27 17:06:48 +0000
commitcd74e7d820b76997c857f9d710887948bfa6ab2d (patch)
treeb531d749eae3d5959789f7be9ed229be704ce7d9 /extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls
parente973b02b2e1710b5262b162fd3f14f8a8df01b73 (diff)
*** empty log message ***
Diffstat (limited to 'extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls')
-rw-r--r--extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls32
1 files changed, 32 insertions, 0 deletions
diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls b/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls
new file mode 100644
index 000000000000..77e9b3c8ca29
--- /dev/null
+++ b/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls
@@ -0,0 +1,32 @@
+VERSION 1.0 CLASS
+BEGIN
+ MultiUse = -1 'True
+ Persistable = 0 'NotPersistable
+ DataBindingBehavior = 0 'vbNone
+ DataSourceBehavior = 0 'vbNone
+ MTSTransactionMode = 0 'NotAnMTSObject
+END
+Attribute VB_Name = "VBEventListener"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = True
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = True
+Option Explicit
+Private interfaces(0) As String
+
+Public Property Get Bridge_ImplementedInterfaces() As Variant
+ Bridge_ImplementedInterfaces = interfaces
+End Property
+
+Private Sub Class_Initialize()
+interfaces(0) = "com.sun.star.lang.XEventListener"
+End Sub
+
+Private Sub Class_Terminate()
+ On Error Resume Next
+ Debug.Print "Terminate VBEventListener"
+End Sub
+
+Public Sub disposing(ByVal source As Object)
+ MsgBox "disposing called"
+End Sub