Pop.Box/elements/box.moon

--- A generic box, drawn with specified color or an image.
--- @classmod box
--- @copyright Paul Liverman III (2017)
--- @license The MIT License (MIT)
--- @todo Make 9-slices available!
--- @todo Correct documentation on all elements

import graphics from love

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

class box extends element
  --- Constructor expects nothing, or a data table describing it.
  new: (@parent, @data={}, background={255, 255, 255, 255}) =>
    -- assume a data object with four values is actually the background
    if #@data == 4
      background = @data
      @data = nil

    super @parent, @data

    @data.type = "box" if @data.type == "element"
    @data.background = background unless @data.background

  draw: =>
    if "table" == type @data.background
      graphics.setColor @data.background
      graphics.rectangle "fill", @data.x, @data.y, @data.w, @data.h
    else
      w, h = @data.background\getDimensions!
      w = @data.w / w
      h = @data.h / h
      graphics.setColor 255, 255, 255, 255
      graphics.draw @data.background, @data.x, @data.y, 0, w, h

    return @

  setBackground: (background) =>
    if background
      @data.background = background
    else
      error "Background must be a table representing a color, or a drawable object."
    return @

  getBackground: =>
    return @data.background

  setColor: (r, g, b, a=255) =>
    if "table" == type r
      @data.background = r
    else
      @data.background = {r, g, b, a}

    return @

  getColor: =>
    if "table" == type @data.background
      return unpack @data.background
    else
      return 255, 255, 255, 255   -- if it is drawable, it is drawn with a white color