diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2014-10-25 12:01:37 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2014-10-25 12:01:37 +0200 |
| commit | 8f97b20e94ea5e1b56f534eb5bbff8e48402d6be (patch) | |
| tree | 2178aa23799c5c092fb6e25bef9d7a23cb991fcd /wizards | |
| parent | 04ea7b24ec1b5a027efa0b850f2bc3ac7116c52e (diff) | |
Access2Base - Introspection in Root
Change-Id: I46d629592a845b3480c04b2ecf545d1b68b510e8
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Root_.xba | 2 | ||||
| -rw-r--r-- | wizards/source/access2base/Utils.xba | 2 |
2 files changed, 1 insertions, 3 deletions
diff --git a/wizards/source/access2base/Root_.xba b/wizards/source/access2base/Root_.xba index c6728a0841ee..052fbce80fb6 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 0f9580342edf..12f1eacfece7 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) |