Gambas ONE

' on class AbstractLoader
Event finish(obj as Variant)

' on class LoaderA inherits AbstractLoader
Raise finish(new MyTestA()) 

' on class LoaderB inherits AbstractLoader
Raise finish(new MyTestB())

Dim loader as LoaderA
loader = new LoaderA as "myloader"

public sub myloader_finish(obj as Variant)

' here I have to convert the "obj" into "MyTestA" again, to use the
' right type later

end

Dim my as MyTestA
my = (MyTestA) obj

Public Sub myloader_finish(obj as Object) ' Object is better than Variant 
 
  ' here I have to convert the "obj" into "MyTestA" again, to use the
  ' right type later
  If obj Is MyTestA Then
    Dim my As MyTestA = obj
    my.SubFromMyTestA()
  Endif 

End

SetValue(cbxCheckBox, Settings["CheckValue", False])
SetValue(dbDirBox, Settings["DirText", ""])
SetValue(cmbMyComboBox, Settings["ComboIndex", 0])

Public Sub SetValue(obj As Object, Value As Variant, Optional SetText As Boolean)

  Dim sType As String

  If SetText Then sType = "t"  ' force .Text type and do not even check

  If Not sType Then
    Select Object.Type(obj)
      Case "SliderBox", "CheckBox", "ToggleButton"
        sType = "v"
      Case "TextBox", "TextArea"
        sType = "t"
      Case "ComboBox", "ListBox"
        sType = "i"
    End Select
  Endif

  Object.Lock(obj)

  Select sType
    Case "t"
      obj.Text = Value
    Case "i"
      obj.Index = Value
    Case Else
      obj.Value = Value
  End Select
  Object.UnLock(obj)

End

Public Sub ObjectExample(obj As Object)

 Select Object.Type(obj)
    Case "Window"
     Dim w As Window = obj  ' make a Window variable and assign obj to it

     w.Resize(400,400)  ' Now w. has the window properties/methods in the form designer

  ' here obj.Resize() will also work but it will not pop auto-completion for you in the IDE
  End Select

End

Dim my As AbstractLoader 
my = MyTestA()

Public Sub MyTestA() As AbstractLoader
  Return $myAbstractLoaderVariable
End

  Dim obj As New ExcellentObserver(Me) 
  ' Class 'ExcellentObserver' inherits class 'Observer'
  ' Let's check if obj has type 'Observer'
  Print Object.Type(obj) = "Observer"
  ' Let's do the same but polymorphic way
  Print obj Is Observer

False
True