Pop.Box/demo/main.lua

local pop = require("pop")()

local lg = love.graphics

local visualTestsShown = false
local testsRun = false
local debugDrawEnabled = false

function love.load()
    pop:text(nil, "Press \"s\" to show objects for visual testing/demo.\nPress \"t\" to run tests.\nPress \"d\" to toggle debug draw."):move(2, 2)
    --TODO correct the fact that the size is wrong here! (height doesn't take into account \n)
    --NOTE width? Is width calculated correctly when \n's exist? TEST THIS (also test tabs)
    pop:text(nil, "This is a test\ncollection of strings to see how width is determined.\nLooks like it takes width of widest line!"):move(30, 120)
    pop:element():align("right", "bottom"):setSize(25, 25):move(-5, -5)
end

function love.update(dt)
    pop:update(dt)
end

function love.draw()
    pop:draw()

    if debugDrawEnabled then
        pop:debugDraw()
    end
end

function love.textinput(text)
    --pop:textinput(text)
end

function love.mousepressed(button, x, y)
    --pop:mousepressed(button, x, y)
end

function love.mousereleased(button, x, y)
    --pop:mousereleased(button, x, y)
end

function love.keypressed(key)
    if key == "escape" then
        love.event.quit()
    else
        if (key == "s") and (not visualTestsShown) then
            -- old visual tests
            local align = pop:box():align("center", "center"):setSize(200, 200)
            pop:box(align):align("left", "top"):setSize(75, 10):setColor(255, 0, 255, 255)
            pop:box(align):align("center", "top"):setColor(100, 100, 100)
            pop:box(align, {0, 255, 0, 255}):setSize(20, 5):align("right", "top")
            pop:box(align):align("left", "center"):setColor(0, 0, 255)
            pop:box(align):align("center", "center"):setSize(90, 90):setColor(255, 255, 255)
            pop:box(align):align("right", "center"):setColor(255, 0, 0)
            pop:box(align):align("left", "bottom"):setColor(0, 255, 0):setSize(nil, 40)
            pop:box(align):align("center", "bottom"):setColor(255, 255, 0)
            pop:box(align):align("right", "bottom"):setColor(0, 255, 255):setSize(40, 40)
            --pop:box(nil, {255, 0, 0, 255}):align("left", "top"):setSize(50, 50) --TODO adjust z-height of elements
            pop:text(nil, "Hello World!"):align("center"):setText("Hey, I've been modified!")--:move(0, 18)
            pop:text(nil, "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890!@#$%^&*()-=_+[]{}\\|:;\"',./<>?`~"):align("center", "bottom")

            visualTestsShown = true
        elseif (key == "t") and (not testsRun) then
            require "test"
        elseif key == "d" then
            debugDrawEnabled = not debugDrawEnabled
        end

        --pop:keypressed(key)
    end
end

function love.keyreleased(key)
    --pop:keyreleased(key)
end