Pop.Box/demo/pop/elements/box.lua

local graphics
graphics = love.graphics
local sub, len
do
  local _obj_0 = string
  sub, len = _obj_0.sub, _obj_0.len
end
local path = sub(..., 1, len(...) - len("/box"))
local element = require(tostring(path) .. "/element")
local box
do
  local _class_0
  local _parent_0 = element
  local _base_0 = {
    draw = function(self)
      if self.background then
        if type(self.background) == "table" then
          graphics.setColor(self.background)
        else
          graphics.setColor(self.background)
          local w, h = self.background:getDimensions()
          w = self.w / w
          h = self.h / h
          graphics.draw(self.background, self.x, self.y, 0, w, h)
        end
      end
      return self
    end,
    debugDraw = function(self)
      graphics.setLineWidth(0.5)
      graphics.setColor(0, 0, 0, 100)
      graphics.rectangle("fill", self.x, self.y, self.w, self.h)
      graphics.setColor(0, 0, 200, 200)
      graphics.rectangle("line", self.x, self.y, self.w, self.h)
      graphics.setColor(200, 200, 255, 255)
      graphics.print("b", self.x, self.y)
      return self
    end,
    setBackground = function(self, background)
      self.background = background
      return self
    end,
    getBackground = function(self)
      return self.background
    end,
    setColor = function(self, r, g, b, a)
      if a == nil then
        a = 255
      end
      self.background = {
        r,
        g,
        b,
        a
      }
      return self
    end,
    getColor = function(self)
      if type(self.background) == "table" then
        return unpack(self.background)
      else
        return error("This box doesn't have a color.")
      end
    end
  }
  _base_0.__index = _base_0
  setmetatable(_base_0, _parent_0.__base)
  _class_0 = setmetatable({
    __init = function(self, pop, parent, background)
      if background == nil then
        background = false
      end
      _class_0.__parent.__init(self, pop, parent)
      self.background = background
    end,
    __base = _base_0,
    __name = "box",
    __parent = _parent_0
  }, {
    __index = function(cls, name)
      local val = rawget(_base_0, name)
      if val == nil then
        local parent = rawget(cls, "__parent")
        if parent then
          return parent[name]
        end
      else
        return val
      end
    end,
    __call = function(cls, ...)
      local _self_0 = setmetatable({}, _base_0)
      cls.__init(_self_0, ...)
      return _self_0
    end
  })
  _base_0.__class = _class_0
  if _parent_0.__inherited then
    _parent_0.__inherited(_parent_0, _class_0)
  end
  box = _class_0
  return _class_0
end