--- A generic text element. Very basic.
--- @classmod text
--- @copyright Paul Liverman III (2016)
--- @license The MIT License (MIT)

import graphics from love

element = require "#{(...)\sub 1, -5}/element"

class text extends element
    --- Constructor expects nothing, or a data table describing it.
    new: (@parent, @data={}, text="", fontFile, fontSize=14) =>
        super @parent, @data

        @data.type = "text"
        @data.text = text
        @data.fontFile = fontFile
        @data.fontSize = fontSize
        @data.color = {255, 255, 255, 255} unless @data.color

        if @data.fontFile
            @font = graphics.newFont(@data.fontFile, @data.fontSize)
        else
            @font = graphics.newFont(@data.fontSize)

        @setSize!

    draw: =>
        graphics.setColor(@data.color)
        graphics.setFont(@font)
        graphics.print(@data.text, @data.x, @data.y)

        return @

    --- Size is dependant on the text and font, so you cannot specify a size.
    setSize: =>
        @data.w = @font\getWidth @data.text
        @data.h = @font\getHeight! * (select(2, @data.text\gsub("\n", "\n")) + 1) --hack to get height of multiple lines
        return @

    --- Text should be set this way, or the object will not be the correct size.
    setText: (text) =>
        @data.text = text
        return @setSize!