diff options
author | Jens-Heiner Rechtien <hr@openoffice.org> | 2003-03-25 15:04:55 +0000 |
---|---|---|
committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2003-03-25 15:04:55 +0000 |
commit | 29a4847890f529dad10e2d9f0334eeb6c919f0c7 (patch) | |
tree | 04acdb6805ad502ad7fca3c8ad1b920b5dd4512f /extensions/test/ole/EventListenerSample/VBEventListener | |
parent | e12f3a21a4e45ace5596f29e477d447c6ac51238 (diff) |
MWS_SRX644: migrate branch mws_srx644 -> HEAD
Diffstat (limited to 'extensions/test/ole/EventListenerSample/VBEventListener')
-rw-r--r-- | extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas | 9 | ||||
-rw-r--r-- | extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls | 51 |
2 files changed, 0 insertions, 60 deletions
diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas b/extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas deleted file mode 100644 index aafd265a0d48..000000000000 --- a/extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas +++ /dev/null @@ -1,9 +0,0 @@ -Attribute VB_Name = "Module1" -Option Explicit - - -Sub Main() - -End Sub - - diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls b/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls deleted file mode 100644 index 9fd9cc46f4f8..000000000000 --- a/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls +++ /dev/null @@ -1,51 +0,0 @@ -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 -Private bDisposingCalled As Boolean -Private bQuiet As Boolean - -Public Property Get Bridge_ImplementedInterfaces() As Variant - Bridge_ImplementedInterfaces = interfaces -End Property - -Private Sub Class_Initialize() -interfaces(0) = "com.sun.star.lang.XEventListener" -bDisposingCalled = False -bQuiet = False -End Sub - -Private Sub Class_Terminate() - On Error Resume Next - Debug.Print "Terminate VBEventListener" -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 |