formato

' 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