Pop.Box/lib/pop/init.lua

local pop = {
  _VERSION = 'Pop.Box v0.0.0',
  _DESCRIPTION = 'GUI library for LOVE, designed for ease of use',
  _URL = 'http://github.com/Guard13007/Pop.Box',
  _LICENSE = 'The MIT License (MIT)',
  _AUTHOR = 'Paul Liverman III'
}
if not (love.getVersion) then
  error("Pop.Box only supports LOVE versions >= 0.9.1")
end
local filesystem, graphics
do
  local _obj_0 = love
  filesystem, graphics = _obj_0.filesystem, _obj_0.graphics
end
local insert
insert = table.insert
local inheritsFromElement
inheritsFromElement = require(tostring(...) .. "/util").inheritsFromElement
local path = ...
pop.elements = { }
pop.skins = { }
pop.screen = false
pop.focused = false
pop.load = function()
  local elements = filesystem.getDirectoryItems(tostring(path) .. "/elements")
  for i = 1, #elements do
    local _continue_0 = false
    repeat
      if not (elements[i]:sub(-4) == ".lua") then
        _continue_0 = true
        break
      end
      local name = elements[i]:sub(1, -5)
      pop.elements[name] = require(tostring(path) .. "/elements/" .. tostring(name))
      if pop.elements[name].load then
        pop.elements[name].load(pop)
      end
      print("element loaded: \"" .. tostring(name) .. "\"")
      if not (pop[name]) then
        if pop.elements[name].wrap then
          pop[name] = pop.elements[name].wrap(pop)
        else
          pop[name] = function(...)
            return pop.create(name, ...)
          end
        end
        print("wrapper created: \"pop." .. tostring(name) .. "()\"")
      end
      _continue_0 = true
    until true
    if not _continue_0 then
      break
    end
  end
  local skins = filesystem.getDirectoryItems(tostring(path) .. "/skins")
  for i = 1, #skins do
    local _continue_0 = false
    repeat
      if not (skins[i]:sub(-4) == ".lua") then
        _continue_0 = true
        break
      end
      local name = skins[i]:sub(1, -5)
      pop.skins[name] = require(tostring(path) .. "/skins/" .. tostring(name))
      print("skin loaded: \"" .. tostring(name) .. "\"")
      _continue_0 = true
    until true
    if not _continue_0 then
      break
    end
  end
  local extensions = filesystem.getDirectoryItems(tostring(path) .. "/extensions")
  for i = 1, #extensions do
    local _continue_0 = false
    repeat
      if not (extensions[i]:sub(-4) == ".lua") then
        _continue_0 = true
        break
      end
      local name = extensions[i]:sub(1, -5)
      require(tostring(path) .. "/extensions/" .. tostring(name))
      print("extension loaded: \"" .. tostring(name) .. "\"")
      _continue_0 = true
    until true
    if not _continue_0 then
      break
    end
  end
  pop.screen = pop.create("element", false):setSize(graphics.getWidth(), graphics.getHeight())
  return print("created \"pop.screen\"")
end
pop.create = function(element, parent, ...)
  if parent == nil then
    parent = pop.screen
  end
  if inheritsFromElement(parent) then
    element = pop.elements[element](parent, ...)
    insert(parent.data.child, element)
  elseif parent == false then
    element = pop.elements[element](false, ...)
  else
    element = pop.elements[element](pop.screen, parent, ...)
    insert(pop.screen.data.child, element)
  end
  return element
end
pop.update = function(dt, element)
  if element == nil then
    element = pop.screen
  end
  if element.data.update then
    if element.update then
      element:update(dt)
    end
    for i = 1, #element.data.child do
      pop.update(dt, element.data.child[i])
    end
  end
end
pop.draw = function(element)
  if element == nil then
    element = pop.screen
  end
  if element.data.draw then
    if element.draw then
      element:draw()
    end
    for i = 1, #element.data.child do
      pop.draw(element.data.child[i])
    end
  end
end
pop.mousemoved = function(x, y, dx, dy)
  if pop.focused and pop.focused.mousemoved then
    return pop.focused:mousemoved(x, y, dx, dy)
  end
  return false
end
pop.mousepressed = function(x, y, button, element)
  if not (element) then
    print("mousepressed", x, y, button)
    element = pop.screen
  end
  local handled = false
  if (x >= element.data.x) and (x <= element.data.x + element.data.w) and (y >= element.data.y) and (y <= element.data.y + element.data.h) then
    for i = #element.data.child, 1, -1 do
      do
        handled = pop.mousepressed(x, y, button, element.data.child[i])
        if handled then
          return handled
        end
      end
    end
    if not (handled) then
      if element.mousepressed and element.data.draw then
        do
          handled = element:mousepressed(x - element.data.x, y - element.data.y, button)
          if handled then
            pop.focused = element
          end
        end
      end
    end
  end
  return handled
end
pop.mousereleased = function(x, y, button, element)
  local clickedHandled = false
  local mousereleasedHandled = false
  if element then
    if (x >= element.data.x) and (x <= element.data.x + element.data.w) and (y >= element.data.y) and (y <= element.data.y + element.data.h) then
      for i = #element.data.child, 1, -1 do
        clickedHandled, mousereleasedHandled = pop.mousereleased(x, y, button, element.data.child[i])
        if clickedHandled or mousereleasedHandled then
          return clickedHandled, mousereleasedHandled
        end
      end
      if not (clickedHandled or mousereleasedHandled) then
        if element.clicked and element.data.draw then
          clickedHandled = element:clicked(x - element.data.x, y - element.data.y, button)
        end
        if element.mousereleased then
          mousereleasedHandled = element:mousereleased(x - element.data.x, y - element.data.y, button)
        end
        if clickedHandled then
          pop.focused = element
        end
      end
    end
  else
    print("mousereleased", x, y, button)
    pop.mousereleased(x, y, button, pop.screen)
  end
  return clickedHandled, mousereleasedHandled
end
pop.keypressed = function(key)
  print("keypressed", key)
  local element = pop.focused
  if element and element.keypressed and element.data.draw then
    return element.keypressed(key)
  end
  return false
end
pop.keyreleased = function(key)
  print("keyreleased", key)
  local element = pop.focused
  if element and element.keyreleased then
    return element.keyreleased(key)
  end
  return false
end
pop.textinput = function(text)
  print("textinput", text)
  local element = pop.focused
  if element and element.textinput and element.data.draw then
    return element.textinput(text)
  end
  return false
end
pop.skin = function(element, skin, depth)
  if element == nil then
    element = pop.screen
  end
  if skin == nil then
    skin = pop.skins.default
  end
  if element.data.background and skin.background then
    element.data.background = skin.background
  end
  if element.data.color and skin.color then
    element.data.color = skin.color
  end
  if element.data.font and skin.font then
    element.data.font = skin.font
  end
  if not (depth or (depth == 0)) then
    if depth == tonumber(depth) then
      for i = 1, #element.data.child do
        pop.skin(element.data.child[i], skin, depth - 1)
      end
    else
      for i = 1, #element.data.child do
        pop.skin(element.data.child[i], skin, false)
      end
    end
  end
end
pop.debugDraw = function(element)
  if element == nil then
    element = pop.screen
  end
  if element.debugDraw then
    element:debugDraw()
  else
    graphics.setLineWidth(1)
    graphics.setLineColor(0, 0, 0, 100)
    graphics.rectangle("fill", element.data.x, element.data.y, element.data.w, element.data.h)
    graphics.setColor(150, 150, 150, 150)
    graphics.rectangle("line", element.data.x, element.data.y, element.data.w, element.data.h)
    graphics.setColor(200, 200, 200, 255)
    graphics.print(".", element.data.x, element.data.y)
  end
  for i = 1, #element.data.child do
    pop.debugDraw(element.data.child[i])
  end
end
pop.printElementTree = function(element, depth)
  if element == nil then
    element = pop.screen
  end
  if depth == nil then
    depth = 0
  end
  local cls = element.__class.__name
  if cls == "text" then
    cls = cls .. " (\"" .. tostring(element:getText():gsub("\n", "\\n")) .. "\")"
  elseif cls == "box" then
    local bg = element:getBackground()
    if type(bg) == "table" then
      bg = tostring(bg[1]) .. ", " .. tostring(bg[2]) .. ", " .. tostring(bg[3]) .. ", " .. tostring(bg[4])
    end
    cls = cls .. " (" .. tostring(bg) .. ")"
  end
  print(string.rep("-", depth) .. " " .. tostring(cls))
  for i = 1, #element.data.child do
    pop.printElementStack(element.data.child[i], depth + 1)
  end
end
pop.load()
return pop