What a nonsense ... the BASIC program is the following and I think, that it
does pretty much the same as done in climaker ....
REM ***** BASIC *****
Sub Main
MyReflectionTest
End Sub
Sub MyReflectionTest
Dim oTypeDescriptionProvider as Object
Dim enumeration as Object
Dim typeDescription as object
dim valueArray(0)
dim level
valueArray(0) = com.sun.star.uno.TypeClass.SERVICE
oTypeDescriptionProvider = CreateUnoService(
"com.sun.star.reflection.TypeDescriptionProvider" )
if not IsNull(oTypeDescriptionProvider) then
enumeration =
oTypeDescriptionProvider.createTypeDescriptionEnumeration("",
valueArray, -1)
if not isNull(enumeration) then
do while (enumeration.hasMoreElements)
typeDescription = enumeration.nextTypeDescription
MsgBox typeDescription.dbg_methods
loop
endif
endif
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
