[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 <j...@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 = &quot;&quot;
-       Introspection = Nothing
+       Set Introspection = 
CreateUnoService(&quot;com.sun.star.beans.Introspection&quot;)
        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(&quot;com.sun.star.beans.Introspection&quot;)
        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(&quot;com.sun.star.beans.Introspection&quot;)
        vInspect = _A2B_.Introspection.Inspect(pvObject)
        _hasUNOProperty = vInspect.hasProperty(psProperty, 
com.sun.star.beans.PropertyConcept.ALL)
 
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits