[Libreoffice-commits] core.git: wizards/source

[Jean-Pierre Ledure]

 wizards/source/access2base/Root_.xba |    2 +-
 wizards/source/access2base/Utils.xba |    2 --
 2 files changed, 1 insertion(+), 3 deletions(-)

New commits:
commit 8f97b20e94ea5e1b56f534eb5bbff8e48402d6be
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Sat Oct 25 12:01:37 2014 +0200

    Access2Base - Introspection in Root
    
    Change-Id: I46d629592a845b3480c04b2ecf545d1b68b510e8

diff --git a/wizards/source/access2base/Root_.xba b/wizards/source/access2base/Root_.xba
index c6728a0..052fbce 100644
--- a/wizards/source/access2base/Root_.xba
+++ b/wizards/source/access2base/Root_.xba
@@ -59,7 +59,7 @@ Dim vCurrentDoc() As Variant
 	TraceLogLast = 0
 	TraceLogMaxEntries = 0
 	CalledSub = ""
-	Introspection = Nothing
+	Set Introspection = CreateUnoService("com.sun.star.beans.Introspection")
 	Set FindRecord = Nothing
 	Set StatusBar = Nothing
 	Set Dialogs = New Collection
diff --git a/wizards/source/access2base/Utils.xba b/wizards/source/access2base/Utils.xba
index 0f95803..12f1eac 100644
--- a/wizards/source/access2base/Utils.xba
+++ b/wizards/source/access2base/Utils.xba
@@ -315,7 +315,6 @@ Public Function _hasUNOMethod(pvObject As Variant, psMethod As String) As Boolea
 Dim vInspect as Variant
 	_hasUNOMethod = False
 	On Local Error Resume Next
-	If IsNull(_A2B_.Introspection) Then _A2B_.Introspection = CreateUnoService("com.sun.star.beans.Introspection")
 	vInspect = _A2B_.Introspection.Inspect(pvObject)
 	_hasUNOMethod = vInspect.hasMethod(psMethod, com.sun.star.beans.MethodConcept.ALL)
 
@@ -329,7 +328,6 @@ Public Function _hasUNOProperty(pvObject As Variant, psProperty As String) As Bo
 Dim vInspect as Variant
 	_hasUNOProperty = False
 	On Local Error Resume Next
-	If IsNull(_A2B_.Introspection) Then _A2B_.Introspection = CreateUnoService("com.sun.star.beans.Introspection")
 	vInspect = _A2B_.Introspection.Inspect(pvObject)
 	_hasUNOProperty = vInspect.hasProperty(psProperty, com.sun.star.beans.PropertyConcept.ALL)