Pop.Box/demo/main.lua
2016-05-01 01:55:50 -07:00

146 lines
4.1 KiB
Lua

local lg = love.graphics
local pop, inspect
local debugDraw = false
local videoFile = lg.newVideo("test.ogv") -- so we can loop playback
function love.load()
print(love.getVersion())
inspect = require "debug-lib/inspect"
pop = require "pop"
---[[
local c = pop.box():align("center", "center"):setSize(300, 300)
pop.box(c, {255, 0, 0, 255}):setSize(100, 50)
pop.box(c, {0, 255, 0, 255}):align("center"):setSize(100, 100)
pop.box(c, {0, 0, 255, 255}):align("right"):setSize(50, 100)
pop.box(c, {100, 100, 100, 255}):align("center", "center"):setSize(500, 100)
pop.box(c):align("center"):setSize(50, 500):move(0, -100)
pop.box(c, {255, 255, 0, 255}):align(false, "bottom"):setSize(100, 100)
pop.box(c, {255, 150, 0, 255}):align("center", "bottom"):setSize(100, 50)
pop.box(c, {0, 255, 255}):align("right", "bottom"):setSize(50, 100):move(-50)
pop.text(nil, "Here's some test text\n(with newlines)\nin the top left corner!")
pop.text(nil, "Here's some test text in the bottom right corner!"):align("right", "bottom")
pop.skin(pop.text("Here's easier-to-code test text in the center!"):align("center", "center", true)) -- 'true' means align to pixel!
w = pop.box(nil, {255, 255, 255, 255}):align(false, "bottom"):setSize(150, 150)
b = pop.box(w, {0, 0, 0, 255}):margin(5):setSize(100, 100)
--]]
--c:move(100)
pop.box({255, 0, 0, 255}):position(50, 500) -- testing streamlined_get_set extension & optional parents
--b:margin(2) -- testing streamlined_get_set extension
b:fill() -- testing fill!
w2 = pop.window(nil, "Window")
w2:move(100, 100)
w2:setWidth(500)
w2:move(-50, 80)
w2:setHeight(500)
w2:move(0, -175)
w2.data.title:align("center")
w2:position(0, 0)
w2:size(200, 120):position(90, 70)
w2:setClose(false)
local t2 = pop.text("Click here to toggle close\nbutton on this window."):setMargin(10):setColor(0,0,0)
t2.clicked = function()
w2:setClose(not w2:hasClose())
return true
end
w2:addChild(t2)
local test = lg.newImage("test.png")
G = pop.element():align("right"):move(-2, 2)
a = pop.box(G, test):align("right")
b = pop.box(G, test):align("right"):move(-25):setWidth(40)
c = pop.box(G, test):align("right"):move(0, 25):setHeight(40)
print(a.data.horizontal, a.data.vertical)
print(b.data.horizontal, b.data.vertical)
print(c.data.horizontal, c.data.vertical)
local window = pop.window():align("center", "center"):setTitle("Welcome! This title is far too big!")
pop.window():setClose(false):setClose(true)
local video = pop.box():align("right", "bottom"):setBackground(videoFile):setSize(320/2, 240/2):move(-20, -20)
videoFile:play()
--TODO make debugDraw better
--[[
local all = pop.box()
for k,v in pairs(all) do
print(k, v)
end
print(all.__class.__name)
--]]
end
function love.update(dt)
pop.update(dt)
if not videoFile:isPlaying() then
videoFile:rewind()
videoFile:play() -- sometimes rewinding at the end of play fails to start a loop
end
end
function love.draw()
pop.draw()
if debugDraw then
pop.debugDraw()
end
end
function love.mousemoved(x, y, dx, dy)
pop.mousemoved(x, y, dx, dy)
end
function love.mousepressed(x, y, button)
pop.mousepressed(x, y, button)
end
function love.mousereleased(x, y, button)
pop.mousereleased(x, y, button)
end
function love.keypressed(key)
local handled = pop.keypressed(key)
if (key == "d") and (not handled) then
debugDraw = not debugDraw
end
if (key == "w") and (not handled) then
local w = pop.window()
w.data.title:align("center")
end
--[[
if (key == "e") and (not handled) then
print("EVENTS:")
for k,v in pairs(pop.events) do
print(k, v)
end
print("END")
end
--]]
if (key == "p") and (not handled) then
pop.printElementTree()
end
if (key == "escape") and (not handled) then
love.event.quit()
end
end
function love.keyreleased(key)
pop.keyreleased(key)
end
function love.textinput(text)
pop.textinput(text)
end