Port java code

@Garry wrote (on that other place)

yes

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 
    Break
  Elseif  someobjectTypeInfo.IsSubclassOf(selfTypeInfo) Then
    // some other is a subclass or instance of selfObject
    break
  End If
  
End Sub
1 Like

Thanks Norm.