\' Gambas class file
Inherits ISalonDeConferencia
Private Asistentes As New Collection
Private presentador As Conferenciante \'presentador es un objeto del tipo Conferenciante, si le pongo New tambien le tengo que definir en que sala esta
Public ZonaEscribe As TextLabel
Public Sub _new(z As TextLabel)
ZonaEscribe = z
ZonaEscribe.text = "<br>Inicio de la conferencia...<br><br>"
End
Public Sub registraAsistente(PersonaAsistente As Asistente)
Asistentes.Add(PersonaAsistente, PersonaAsistente.getNombre())
End
Public Sub registraPresentador(PersonaPresentador As Conferenciante)
presentador = PersonaPresentador
End
Public Sub enviarRespuesta(a As Asistente, msg As String)
a.RecibirRespuesta(msg)
End
Public Sub enviarPregunta(a As Asistente, msg As String)
presentador.RecibirPregunta(a, msg)
End
Public Sub ActualizarDiapositiva(msg As String)
Dim persona As Asistente
For Each persona In Asistentes
persona.RecibirImagen(msg)
Next
End
Public Sub cierra()
\'esto se hace para cuando se deje de usar el objeto, no queden referencias circulares
Asistentes = Null
presentador = Null
End