EqualUnoObjects Function
True āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻ¯āĻĻāĻŋ āĻāĻ˛ā§āĻ˛ā§āĻāĻŋāĻ¤ āĻĻā§āĻāĻāĻŋ Uno āĻŦāĻ¸ā§āĻ¤ā§ , āĻāĻāĻ Uno āĻŦāĻ¸ā§āĻ¤ā§ āĻĻā§āĻˇā§āĻāĻžāĻ¨ā§āĻ¤ āĻ¨āĻŋāĻ°ā§āĻĻā§āĻļ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
EqualUnoObjects( oObj1, oObj2 )
Bool
' Copy of objects -> same instance
oIntrospection = CreateUnoService( "com.sun.star.beans.Introspection" )
oIntro2 = oIntrospection
print EqualUnoObjects( oIntrospection, oIntro2 )
' Copy of structs as value -> new instance
Dim Struct1 as new com.sun.star.beans.Property
Struct2 = Struct1
print EqualUnoObjects( Struct1, Struct2 )