fmainPatoStrategy

' Gambas class file

Public Sub Form_show()

  Dim p As Pato
  Dim comportamiento As IVolar

  'Defino inicialmente el pato, con un comportamiento de vuelo "VolarPlaneando"
  p = New Pato
  comportamiento = New VolarAlas
  p.setVolar(comportamiento)
  'escribo comportamiento en el textlabel del formulario...
  TextLabel1.text = "Comportamiento Inicial del vuelo del Pato: " & "<br>" & p.getVolar() & "<br>"

  TextLabel1.text &= "<font color=\"red\">Atención, le han dado un tiro al Pato...." & "</font><br>"

  'ahora voy a cambiar el comportamiento...a que ahora ya no puede volar...

  TextLabel1.text &= "Cambio tipo de vuelo del pato actual..." & "<br>"
  comportamiento = New NoVolar
  p.setVolar(comportamiento)
  TextLabel1.text &= p.getVolar() & "<br>"

End

Public Sub ToolButton1_Click()

  Me.close

End