Skip to content

C
core
Kaydet (Commit) 8f97b20e authored tarafından Jean-Pierre Ledure's avatar Jean-Pierre Ledure
Dosyalara gözat
Seçenekler

Access2Base - Introspection in Root 

Change-Id: I46d629592a845b3480c04b2ecf545d1b68b510e8
üst 04ea7b24
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 3 deletions
wizards/source/access2base/Root_.xba
Dosyayı görüntüle @ 8f97b20e
......@@ -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
......
wizards/source/access2base/Utils.xba
Dosyayı görüntüle @ 8f97b20e
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment