Port java code

@Garry wrote (on that other place)


this is java is about like self in Xojo
so that code amounts to
is self an instance of someobject OR is someobject an instance of self
(as you said)

Private Sub Untitled(selfObject as Object, someObject as Object)
  Dim selfTypeInfo As Introspection.TypeInfo = Introspection.GetType( selfObject )
  Dim someobjectTypeInfo As Introspection.TypeInfo = Introspection.GetType( someobject )
  If selfTypeInfo.IsSubclassOf(someobjectTypeInfo) Then
    // selfObject is a subclass or instance of of some other 
  Elseif  someobjectTypeInfo.IsSubclassOf(selfTypeInfo) Then
    // some other is a subclass or instance of selfObject
  End If
End Sub
1 Like

Thanks Norm.