1*cdf0e10cSrcweir'*************************************************************************
2*cdf0e10cSrcweir'
3*cdf0e10cSrcweir' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4*cdf0e10cSrcweir'
5*cdf0e10cSrcweir' Copyright 2000, 2010 Oracle and/or its affiliates.
6*cdf0e10cSrcweir'
7*cdf0e10cSrcweir' OpenOffice.org - a multi-platform office productivity suite
8*cdf0e10cSrcweir'
9*cdf0e10cSrcweir' This file is part of OpenOffice.org.
10*cdf0e10cSrcweir'
11*cdf0e10cSrcweir' OpenOffice.org is free software: you can redistribute it and/or modify
12*cdf0e10cSrcweir' it under the terms of the GNU Lesser General Public License version 3
13*cdf0e10cSrcweir' only, as published by the Free Software Foundation.
14*cdf0e10cSrcweir'
15*cdf0e10cSrcweir' OpenOffice.org is distributed in the hope that it will be useful,
16*cdf0e10cSrcweir' but WITHOUT ANY WARRANTY; without even the implied warranty of
17*cdf0e10cSrcweir' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18*cdf0e10cSrcweir' GNU Lesser General Public License version 3 for more details
19*cdf0e10cSrcweir' (a copy is included in the LICENSE file that accompanied this code).
20*cdf0e10cSrcweir'
21*cdf0e10cSrcweir' You should have received a copy of the GNU Lesser General Public License
22*cdf0e10cSrcweir' version 3 along with OpenOffice.org.  If not, see
23*cdf0e10cSrcweir' <http://www.openoffice.org/license.html>
24*cdf0e10cSrcweir' for a copy of the LGPLv3 License.
25*cdf0e10cSrcweir'
26*cdf0e10cSrcweir'*************************************************************************
27*cdf0e10cSrcweir
28*cdf0e10cSrcweirVERSION 1.0 CLASS
29*cdf0e10cSrcweirBEGIN
30*cdf0e10cSrcweir  MultiUse = -1  'True
31*cdf0e10cSrcweir  Persistable = 0  'NotPersistable
32*cdf0e10cSrcweir  DataBindingBehavior = 0  'vbNone
33*cdf0e10cSrcweir  DataSourceBehavior  = 0  'vbNone
34*cdf0e10cSrcweir  MTSTransactionMode  = 0  'NotAnMTSObject
35*cdf0e10cSrcweirEND
36*cdf0e10cSrcweirAttribute VB_Name = "VBEventListener"
37*cdf0e10cSrcweirAttribute VB_GlobalNameSpace = False
38*cdf0e10cSrcweirAttribute VB_Creatable = True
39*cdf0e10cSrcweirAttribute VB_PredeclaredId = False
40*cdf0e10cSrcweirAttribute VB_Exposed = True
41*cdf0e10cSrcweirOption Explicit
42*cdf0e10cSrcweirPrivate interfaces(0) As String
43*cdf0e10cSrcweirPrivate bDisposingCalled As Boolean
44*cdf0e10cSrcweirPrivate bQuiet As Boolean
45*cdf0e10cSrcweir
46*cdf0e10cSrcweirPublic Property Get Bridge_ImplementedInterfaces() As Variant
47*cdf0e10cSrcweir    Bridge_ImplementedInterfaces = interfaces
48*cdf0e10cSrcweirEnd Property
49*cdf0e10cSrcweir
50*cdf0e10cSrcweirPrivate Sub Class_Initialize()
51*cdf0e10cSrcweirinterfaces(0) = "com.sun.star.lang.XEventListener"
52*cdf0e10cSrcweirbDisposingCalled = False
53*cdf0e10cSrcweirbQuiet = False
54*cdf0e10cSrcweirEnd Sub
55*cdf0e10cSrcweir
56*cdf0e10cSrcweirPrivate Sub Class_Terminate()
57*cdf0e10cSrcweir   On Error Resume Next
58*cdf0e10cSrcweir   Debug.Print "Terminate VBEventListener"
59*cdf0e10cSrcweirEnd Sub
60*cdf0e10cSrcweir
61*cdf0e10cSrcweirPublic Sub disposing(ByVal source As Object)
62*cdf0e10cSrcweir    If bQuiet = False Then
63*cdf0e10cSrcweir    MsgBox "disposing called"
64*cdf0e10cSrcweir    End If
65*cdf0e10cSrcweir    bDisposingCalled = True
66*cdf0e10cSrcweirEnd Sub
67*cdf0e10cSrcweir
68*cdf0e10cSrcweirPublic Sub setQuiet(quiet As Boolean)
69*cdf0e10cSrcweir    bQuiet = quiet
70*cdf0e10cSrcweirEnd Sub
71*cdf0e10cSrcweir
72*cdf0e10cSrcweirPublic Sub resetDisposing()
73*cdf0e10cSrcweir    bDisposingCalled = False
74*cdf0e10cSrcweirEnd Sub
75*cdf0e10cSrcweir
76*cdf0e10cSrcweirPublic Function disposingCalled()
77*cdf0e10cSrcweir    disposingCalled = bDisposingCalled
78*cdf0e10cSrcweirEnd Function
79