mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Access2Base - Introspection in Root

Browse Source 
Change-Id: I46d629592a845b3480c04b2ecf545d1b68b510e8
This commit is contained in:
Jean-Pierre Ledure
2014-10-25 12:01:37 +02:00
parent 04ea7b24ec
commit 8f97b20e94
2 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wizards/source/access2base/Root_.xba
View File

@@ -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

2
wizards/source/access2base/Utils.xba
View File

@@ -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)