\' Gambas class file
Inherits CreaLetra
Private tipo As String
Private tamano As Integer
Public Sub _new(tip As String, TamanoNumero As Integer)
tipo = tip
tamano = TamanoNumero
End
Public Sub asignaLetra(l As Letra)
Print "Asignación.....Tipo de letra " & tipo & " con tamaño: " & Str$(tamano) & " para el texto: ", l.getTexto()
End
Public Function equals(obj As Object) As Boolean
Return (tipo = obj.getTipo()) And (tamano = obj.getTamano())
End
Public Function getTipo() As String
Return tipo
End
Public Function getTamano() As Integer
Return tamano
End
Public Sub Describe()
Print "Formato: tipo de letra: ", tipo, " con tamaño: ", tamano
End