\' Gambas class file
Public Sub Form_Open()
Dim tvp As New TvPrototype
\'voy a crear varios tv tipo Plasma usando el TvPrototype....
Dim tv1 As Plasma
Dim tv2 As Plasma
Dim tv3 As Plasma
Dim tv4 As Plasma
tv1 = tvp.prototipo("Plasma")
tv2 = tvp.prototipo("Plasma")
TextArea1.text &= "Muestro Clones iniciales:" & gb.CrLf
TextArea1.text &= "Clone tv1: " & tv1.marca & " " & tv1.precio & gb.CrLf
TextArea1.text &= "Clone tv2:" & tv2.marca & " " & tv2.precio & gb.CrLf
TextArea1.text &= "Cambio datos del tv2, para comprobar que tv1 no cambia:" & gb.CrLf
tv2.marca = "Panasonic"
TextArea1.text &= "Clone tv1: " & " " & tv1.marca & " " & tv1.precio & gb.CrLf
TextArea1.text &= "Clone tv2:" & " " & tv2.marca & " " & tv2.precio & gb.CrLf
tv3 = tvp.prototipo("Plasma")
TextArea1.text &= "aƱado un nuevo television tv3, veo sus datos... " & gb.CrLf & "y muestro los tv anteriores para comprobar que el prototipo sigue funcionando:" & gb.CrLf
TextArea1.text &= "Clone tv1: " & " " & tv1.marca & " " & tv1.precio & gb.CrLf
TextArea1.text &= "Clone tv2:" & " " & tv2.marca & " " & tv2.precio & gb.CrLf
TextArea1.text &= "Clone tv3:" & " " & tv3.marca & " " & tv3.precio & gb.CrLf
TextArea1.Text &= "Voy a clonar tv3, creando tv4:" & gb.CrLf
tv4 = tv3.clone()
TextArea1.text &= "Clone tv3:" & " " & tv3.marca & " " & tv3.precio & " " & tv3.angulovision & gb.CrLf
TextArea1.text &= "Clone tv4:" & " " & tv4.marca & " " & tv4.precio & " " & tv4.angulovision & gb.CrLf
TextArea1.text &= "Modifico una de las propiedades del angulovision del tv4:" & gb.CrLf
tv4.angulovision = 45
TextArea1.text &= "Clone tv3:" & " " & tv3.marca & " " & tv3.precio & " " & tv3.angulovision & gb.CrLf
TextArea1.text &= "Clone tv4:" & " " & tv4.marca & " " & tv4.precio & " " & tv4.angulovision & gb.CrLf
End