LoveFrames/debug.lua
2013-05-05 19:51:20 -04:00

872 lines
27 KiB
Lua

--[[------------------------------------------------
-- Love Frames - A GUI library for LOVE --
-- Copyright (c) 2013 Kenny Shields --
--]]------------------------------------------------
-- debug library
loveframes.debug = {}
local font = loveframes.basicfontsmall
local centerarea = {210, 5, 585, 590}
local loremipsum =
[[Lorem ipsum dolor sit amet, consectetur adipiscing elit. Aenean laoreet massa mattis tortor faucibus non congue mauris mattis. Aliquam ultricies scelerisque mi, sit amet tempor metus pharetra vel. Etiam eu arcu a dolor porttitor condimentum in malesuada urna. Mauris vel nulla mi, quis aliquet neque. In aliquet turpis eget purus malesuada tincidunt. Donec rutrum purus vel diam suscipit vehicula. Cras sem nibh, tempus at dictum non, consequat non justo. In sed tellus nec orci scelerisque scelerisque id vitae leo. Maecenas pharetra, nibh eget commodo gravida, augue nisl blandit dui, ut malesuada augue dui nec erat. Phasellus nec mauris pharetra metus iaculis viverra sit amet ut tortor. Duis et viverra magna. Nunc orci dolor, placerat a iaculis non, mattis sed nibh.
Mauris ac erat sit amet ante condimentum scelerisque. Cras eleifend lorem dictum mi euismod non placerat lorem gravida. Vestibulum sodales dapibus eros, non iaculis risus commodo eu. Maecenas dapibus purus accumsan metus euismod suscipit. Etiam eleifend lorem eget quam ornare interdum sed at nulla. Suspendisse viverra sapien ut felis viverra pellentesque. Ut convallis hendrerit est, in imperdiet purus placerat ut. Curabitur sapien nibh, molestie et elementum a, sagittis et tortor. Vestibulum sed quam eu velit euismod rutrum vitae et sem. Morbi accumsan quam vitae sapien scelerisque tincidunt. Nulla ipsum leo, scelerisque at consequat sit amet, venenatis eget mauris. Aliquam at nibh vel lorem hendrerit dignissim. Cras et risus sit amet est vehicula auctor at a leo. Curabitur euismod mi sit amet nunc consequat sed fringilla justo sagittis.
Nulla ut arcu felis, a laoreet tellus. Vivamus ligula nibh, bibendum ut ultrices sed, ullamcorper et est. Pellentesque nisi diam, sollicitudin lacinia fermentum quis, aliquam fermentum elit. Donec egestas vestibulum mollis. Vivamus sollicitudin nisl vestibulum nisi fermentum scelerisque. Nunc enim magna, posuere ornare faucibus a, bibendum vestibulum felis. Etiam laoreet molestie elit, vitae ultrices sem faucibus in. Fusce rutrum convallis lacus, vitae scelerisque eros tincidunt sed. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos.
Quisque ornare arcu sed enim sodales dictum. Suspendisse at convallis mi. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos. Maecenas et nibh odio, eu lacinia lacus. Mauris at pulvinar urna. Pellentesque vel justo erat, a congue nibh. Nunc tristique mattis euismod. Suspendisse potenti.
Sed dictum faucibus cursus. Integer nisi ipsum, dapibus vel blandit laoreet, bibendum congue massa. Vestibulum tincidunt vulputate nunc, facilisis consequat lacus posuere at. Aenean sed mollis urna. Vivamus congue neque non arcu malesuada lobortis. Curabitur suscipit pretium massa eu rutrum. Nulla vehicula imperdiet dui in blandit. Curabitur vitae felis ut massa scelerisque consequat. Nulla a magna quis risus consequat hendrerit. Maecenas quis lacus sit amet ipsum condimentum interdum. Proin condimentum erat id enim elementum ut tincidunt neque vulputate.
]]
--[[---------------------------------------------------------
- func: draw()
- desc: draws debug information
--]]---------------------------------------------------------
function loveframes.debug.draw()
-- get the current debug setting
local debug = loveframes.config["DEBUG"]
-- do not draw anthing if debug is off
if not debug then
return
end
local cols = loveframes.util.GetCollisions()
local topcol = {type = none, children = {}, x = 0, y = 0, width = 0, height = 0}
local objects = loveframes.util.GetAllObjects()
local author = loveframes.info.author
local version = loveframes.info.version
local stage = loveframes.info.stage
local basedir = loveframes.config["DIRECTORY"]
local loveversion = love._version
local fps = love.timer.getFPS()
local deltatime = love.timer.getDelta()
-- set the top most collision object
for k, v in ipairs(cols) do
if v:IsTopCollision() then
topcol = v
break
end
end
-- main font
love.graphics.setFont(font)
-- main box
love.graphics.setColor(0, 0, 0, 200)
love.graphics.rectangle("fill", 5, 30, 200, 220)
-------------------------------------------------------
-- library information section
-------------------------------------------------------
love.graphics.setColor(255, 0, 0, 255)
love.graphics.print("Library Information", 10, 35)
love.graphics.setColor(255, 255, 255, 255)
love.graphics.print("Author: " ..author, 15, 50)
love.graphics.print("Version: " ..version, 15, 60)
love.graphics.print("Stage: " ..stage, 15, 70)
love.graphics.print("Base Directory: " ..basedir, 15, 80)
-------------------------------------------------------
-- object information section
-------------------------------------------------------
love.graphics.setColor(255, 0, 0, 255)
love.graphics.print("Object Information", 10, 95)
love.graphics.setColor(255, 255, 255, 255)
if #cols > 0 then
love.graphics.print("Type: " ..topcol.type, 15, 110)
else
love.graphics.print("Type: none", 10, 120)
end
if topcol.children then
love.graphics.print("# of children: " .. #topcol.children, 15, 120)
else
love.graphics.print("# of children: 0", 15, 120)
end
if topcol.internals then
love.graphics.print("# of internals: " .. #topcol.internals, 15, 130)
else
love.graphics.print("# of internals: 0", 15, 130)
end
love.graphics.print("X: " ..topcol.x, 15, 140)
love.graphics.print("Y: " ..topcol.y, 15, 150)
love.graphics.print("Width: " ..topcol.width, 15, 160)
love.graphics.print("Height: " ..topcol.height, 15, 170)
-------------------------------------------------------
-- miscellaneous section
-------------------------------------------------------
love.graphics.setColor(255, 0, 0, 255)
love.graphics.print("Miscellaneous", 10, 185)
love.graphics.setColor(255, 255, 255, 255)
love.graphics.print("LOVE Version: " ..loveversion, 15, 200)
love.graphics.print("FPS: " ..fps, 15, 210)
love.graphics.print("Delta Time: " ..deltatime, 15, 220)
love.graphics.print("Total Objects: " ..#objects, 15, 230)
-- outline the object that the mouse is hovering over
love.graphics.setColor(255, 204, 51, 255)
love.graphics.setLine(2, "smooth")
love.graphics.rectangle("line", topcol.x - 1, topcol.y - 1, topcol.width + 2, topcol.height + 2)
end
--[[---------------------------------------------------------
- func: ExamplesMenu()
- desc: generates a list of examples of Love Frames
objects
--]]---------------------------------------------------------
function loveframes.debug.ExamplesMenu()
------------------------------------
-- examples frame
------------------------------------
local examplesframe = loveframes.Create("frame")
examplesframe:SetName("Examples List")
examplesframe:SetSize(200, love.graphics.getHeight() - 325)
examplesframe:SetPos(5, 320)
------------------------------------
-- examples list
------------------------------------
local exampleslist = loveframes.Create("list", examplesframe)
exampleslist:SetSize(200, exampleslist:GetParent():GetHeight() - 25)
exampleslist:SetPos(0, 25)
exampleslist:SetPadding(5)
exampleslist:SetSpacing(5)
exampleslist:SetDisplayType("vertical")
------------------------------------
-- button example
------------------------------------
local buttonexample = loveframes.Create("button")
buttonexample:SetText("Button")
buttonexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Button")
frame1:CenterWithinArea(unpack(centerarea))
local button1 = loveframes.Create("button", frame1)
button1:SetWidth(200)
button1:SetText("Button")
button1:Center()
button1.OnClick = function(object2, x, y)
object2:SetText("You clicked the button!")
end
button1.OnMouseEnter = function(object2)
object2:SetText("The mouse entered the button.")
end
button1.OnMouseExit = function(object2)
object2:SetText("The mouse exited the button.")
end
end
exampleslist:AddItem(buttonexample)
------------------------------------
-- checkbox example
------------------------------------
local checkboxexample = loveframes.Create("button")
checkboxexample:SetText("Checkbox")
checkboxexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Checkbox")
frame1:CenterWithinArea(unpack(centerarea))
frame1:SetHeight(85)
local checkbox1 = loveframes.Create("checkbox", frame1)
checkbox1:SetText("Checkbox 1")
checkbox1:SetPos(5, 30)
checkbox1.OnChanged = function(object2)
end
local checkbox2 = loveframes.Create("checkbox", frame1)
checkbox2:SetText("Checkbox 2")
checkbox2:SetPos(5, 60)
checkbox2.OnChanged = function(object3)
end
end
exampleslist:AddItem(checkboxexample)
------------------------------------
-- collapsible category example
------------------------------------
local collapsiblecategoryexample = loveframes.Create("button")
collapsiblecategoryexample:SetText("Collapsible Category")
collapsiblecategoryexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Collapsible Category")
frame1:SetSize(500, 300)
frame1:CenterWithinArea(unpack(centerarea))
local panel1 = loveframes.Create("panel")
panel1:SetHeight(230)
local collapsiblecategory1 = loveframes.Create("collapsiblecategory", frame1)
collapsiblecategory1:SetPos(5, 30)
collapsiblecategory1:SetSize(490, 265)
collapsiblecategory1:SetText("Category 1")
collapsiblecategory1:SetObject(panel1)
end
exampleslist:AddItem(collapsiblecategoryexample)
------------------------------------
-- cloumnlist example
------------------------------------
local cloumnlistexample = loveframes.Create("button")
cloumnlistexample:SetText("Column List")
cloumnlistexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Column List")
frame1:SetSize(500, 300)
frame1:CenterWithinArea(unpack(centerarea))
local list1 = loveframes.Create("columnlist", frame1)
list1:SetPos(5, 30)
list1:SetSize(490, 265)
list1:AddColumn("Column 1")
list1:AddColumn("Column 2")
list1:AddColumn("Column 3")
list1:AddColumn("Column 4")
for i=1, 20 do
list1:AddRow("Row " ..i.. ", column 1", "Row " ..i.. ", column 2", "Row " ..i.. ", column 3", "Row " ..i.. ", column 4")
end
end
exampleslist:AddItem(cloumnlistexample)
------------------------------------
-- frame example
------------------------------------
local frameexample = loveframes.Create("button")
frameexample:SetText("Frame")
frameexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Frame")
frame1:CenterWithinArea(unpack(centerarea))
frame1:SetIcon("resources/images/application.png")
local text1 = loveframes.Create("text", frame1)
text1:SetText("This is an example frame.")
text1.Update = function(object2, dt)
object2:CenterX()
object2:SetY(40)
end
local button1 = loveframes.Create("button", frame1)
button1:SetText("Modal")
button1:SetWidth(100)
button1:Center()
button1.Update = function(object2, dt)
local modal = object2:GetParent():GetModal()
if modal then
object2:SetText("Remove Modal")
object2.OnClick = function()
object2:GetParent():SetModal(false)
end
else
object2:SetText("Set Modal")
object2.OnClick = function()
object2:GetParent():SetModal(true)
end
end
end
end
exampleslist:AddItem(frameexample)
------------------------------------
-- grid example
------------------------------------
local gridexample = loveframes.Create("button")
gridexample:SetText("Grid")
gridexample.OnClick = function(object1, x, y)
local frame = loveframes.Create("frame")
frame:SetName("Grid")
frame:CenterWithinArea(unpack(centerarea))
--local panel = loveframes.Create("panel")
--panel:SetSize(500, 300)
--panel:CenterWithinArea(unpack(centerarea))
local grid = loveframes.Create("grid", frame)
grid:SetPos(5, 30)
grid:SetRows(5)
grid:SetColumns(5)
grid:SetCellWidth(25)
grid:SetCellHeight(25)
grid:SetCellPadding(5)
grid:SetItemAutoSize(true)
local id = 1
for i=1, 5 do
for n=1, 5 do
local button = loveframes.Create("button")
button:SetSize(15, 15)
button:SetText(id)
grid:AddItem(button, i, n)
id = id + 1
end
end
grid.OnSizeChanged = function(object)
frame:SetSize(object:GetWidth() + 10, object:GetHeight() + 35)
frame:CenterWithinArea(unpack(centerarea))
end
end
exampleslist:AddItem(gridexample)
------------------------------------
-- image example
------------------------------------
local imageexample = loveframes.Create("button")
imageexample:SetText("Image")
imageexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Image")
frame1:SetSize(138, 315)
frame1:CenterWithinArea(unpack(centerarea))
local image1 = loveframes.Create("image", frame1)
image1:SetImage("resources/images/carlsagan.png")
image1:SetPos(5, 30)
local panel1 = loveframes.Create("panel", frame1)
panel1:SetPos(5, 160)
panel1:SetSize(128, 150)
local text1 = loveframes.Create("text", panel1)
text1:SetPos(5, 5)
text1:SetText("Orientation: ")
local slider1 = loveframes.Create("slider", panel1)
slider1:SetPos(5, 20)
slider1:SetWidth(118)
slider1:SetMinMax(0, 360)
slider1:SetDecimals(0)
slider1.OnValueChanged = function(object)
image1:SetOrientation(object:GetValue())
end
text1.Update = function(object, dt)
object:SetText("Orientation: " ..slider1:GetValue())
end
local text2 = loveframes.Create("text", panel1)
text2:SetPos(5, 40)
text2:SetText("Scale")
local slider2 = loveframes.Create("slider", panel1)
slider2:SetPos(5, 55)
slider2:SetWidth(118)
slider2:SetMinMax(1, 2)
slider2:SetDecimals(5)
slider2.OnValueChanged = function(object)
image1:SetScale(object:GetValue(), object:GetValue())
end
text2.Update = function(object, dt)
object:SetText("Scale: " ..slider2:GetValue())
end
local text3 = loveframes.Create("text", panel1)
text3:SetPos(5, 75)
text3:SetText("Offset")
local slider3 = loveframes.Create("slider", panel1)
slider3:SetPos(5, 90)
slider3:SetWidth(118)
slider3:SetMinMax(1, 50)
slider3:SetDecimals(5)
slider3.OnValueChanged = function(object)
image1:SetOffset(object:GetValue(), object:GetValue())
end
text3.Update = function(object, dt)
object:SetText("Offset: " ..slider3:GetValue())
end
local text4 = loveframes.Create("text", panel1)
text4:SetPos(5, 110)
text4:SetText("Shear")
local slider4 = loveframes.Create("slider", panel1)
slider4:SetPos(5, 125)
slider4:SetWidth(118)
slider4:SetMinMax(0, 10)
slider4:SetDecimals(5)
slider4.OnValueChanged = function(object)
image1:SetShear(object:GetValue(), object:GetValue())
end
text4.Update = function(object, dt)
object:SetText("Shear: " ..slider4:GetValue())
end
end
exampleslist:AddItem(imageexample)
------------------------------------
-- image button example
------------------------------------
local imagebuttonexample = loveframes.Create("button")
imagebuttonexample:SetText("Image Button")
imagebuttonexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Image Button")
frame1:SetSize(138, 163)
frame1:CenterWithinArea(unpack(centerarea))
local imagebutton1 = loveframes.Create("imagebutton", frame1)
imagebutton1:SetImage("resources/images/carlsagan.png")
imagebutton1:SetPos(5, 30)
imagebutton1:SizeToImage()
end
exampleslist:AddItem(imagebuttonexample)
------------------------------------
-- list example
------------------------------------
local listexample = loveframes.Create("button")
listexample:SetText("List")
listexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("List")
frame1:SetSize(500, 455)
frame1:CenterWithinArea(unpack(centerarea))
local list1 = loveframes.Create("list", frame1)
list1:SetPos(5, 30)
list1:SetSize(490, 300)
list1:SetPadding(5)
list1:SetSpacing(5)
local panel1 = loveframes.Create("panel", frame1)
panel1:SetPos(5, 335)
panel1:SetSize(490, 115)
local slider1 = loveframes.Create("slider", panel1)
slider1:SetPos(5, 20)
slider1:SetWidth(480)
slider1:SetMinMax(0, 100)
slider1:SetValue(5)
slider1:SetText("Padding")
slider1:SetDecimals(0)
slider1.OnValueChanged = function(object2, value)
list1:SetPadding(value)
end
local text1 = loveframes.Create("text", panel1)
text1:SetPos(5, 5)
text1:SetFont(love.graphics.newFont(10))
text1:SetText(slider1:GetText())
local text2 = loveframes.Create("text", panel1)
text2:SetFont(love.graphics.newFont(10))
text2.Update = function(object, dt)
object:SetPos(slider1:GetWidth() - object:GetWidth(), 5)
object:SetText(slider1:GetValue())
end
local slider2 = loveframes.Create("slider", panel1)
slider2:SetPos(5, 60)
slider2:SetWidth(480)
slider2:SetMinMax(0, 100)
slider2:SetValue(5)
slider2:SetText("Spacing")
slider2:SetDecimals(0)
slider2.OnValueChanged = function(object2, value)
list1:SetSpacing(value)
end
local text3 = loveframes.Create("text", panel1)
text3:SetPos(5, 45)
text3:SetFont(love.graphics.newFont(10))
text3:SetText(slider2:GetText())
local text4 = loveframes.Create("text", panel1)
text4:SetFont(love.graphics.newFont(10))
text4.Update = function(object, dt)
object:SetPos(slider2:GetWidth() - object:GetWidth(), 45)
object:SetText(slider2:GetValue())
end
local button1 = loveframes.Create("button", panel1)
button1:SetPos(5, 85)
button1:SetSize(237, 25)
button1:SetText("Change List Type")
button1.OnClick = function(object2, x, y)
if list1:GetDisplayType() == "vertical" then
list1:SetDisplayType("horizontal")
else
list1:SetDisplayType("vertical")
end
list1:Clear()
for i=1, 100 do
local button = loveframes.Create("button")
button:SetText(i)
list1:AddItem(button)
end
end
local button2 = loveframes.Create("button", panel1)
button2:SetPos(247, 85)
button2:SetSize(237, 25)
button2:SetText("Toggle Horizontal Stacking")
button2.OnClick = function(object2, x, y)
local enabled = list1:GetHorizontalStacking()
list1:EnableHorizontalStacking(not enabled)
list1:Clear()
for i=1, 100 do
local button = loveframes.Create("button")
button:SetSize(100, 25)
button:SetText(i)
list1:AddItem(button)
end
end
button2.Update = function(object)
local displaytype = list1:GetDisplayType()
if displaytype ~= "vertical" then
object:SetEnabled(false)
object:SetClickable(false)
else
object:SetEnabled(true)
object:SetClickable(true)
end
end
for i=1, 100 do
local button = loveframes.Create("button")
button:SetText(i)
list1:AddItem(button)
end
end
exampleslist:AddItem(listexample)
------------------------------------
-- multichoice example
------------------------------------
local multichoiceexample = loveframes.Create("button")
multichoiceexample:SetText("Multichoice")
multichoiceexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Multichoice")
frame1:SetSize(210, 60)
frame1:CenterWithinArea(unpack(centerarea))
local multichoice1 = loveframes.Create("multichoice", frame1)
multichoice1:SetPos(5, 30)
for i=1, 20 do
multichoice1:AddChoice(i)
end
end
exampleslist:AddItem(multichoiceexample)
------------------------------------
-- numberbox example
------------------------------------
local numberboxexample = loveframes.Create("button")
numberboxexample:SetText("Numberbox")
numberboxexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Numberbox")
frame1:SetSize(210, 60)
frame1:CenterWithinArea(unpack(centerarea))
local numberbox1 = loveframes.Create("numberbox", frame1)
numberbox1:SetPos(5, 30)
numberbox1:SetSize(200, 25)
end
exampleslist:AddItem(numberboxexample)
------------------------------------
-- panel example
------------------------------------
local panelexample = loveframes.Create("button")
panelexample:SetText("Panel")
panelexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Panel")
frame1:SetSize(210, 85)
frame1:CenterWithinArea(unpack(centerarea))
local panel1 = loveframes.Create("panel", frame1)
panel1:SetPos(5, 30)
end
exampleslist:AddItem(panelexample)
------------------------------------
-- progressbar example
------------------------------------
local progressbarexample = loveframes.Create("button")
progressbarexample:SetText("Progress Bar")
progressbarexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Progress Bar")
frame1:SetSize(500, 160)
frame1:CenterWithinArea(unpack(centerarea))
local progressbar1 = loveframes.Create("progressbar", frame1)
progressbar1:SetPos(5, 30)
progressbar1:SetWidth(490)
progressbar1:SetLerpRate(10)
local button1 = loveframes.Create("button", frame1)
button1:SetPos(5, 60)
button1:SetWidth(490)
button1:SetText("Change bar value")
button1.OnClick = function(object2, x, y)
progressbar1:SetValue(math.random(progressbar1:GetMin(), progressbar1:GetMax()))
end
local button2 = loveframes.Create("button", frame1)
button2:SetPos(5, 90)
button2:SetWidth(490)
button2:SetText("Toggle bar lerp")
button2.OnClick = function(object2, x, y)
if progressbar1:GetLerp() == true then
progressbar1:SetLerp(false)
else
progressbar1:SetLerp(true)
end
end
local slider1 = loveframes.Create("slider", frame1)
slider1:SetPos(5, 135)
slider1:SetWidth(490)
slider1:SetText("Progressbar lerp rate")
slider1:SetMinMax(0, 50)
slider1:SetDecimals(0)
slider1:SetValue(10)
slider1.OnValueChanged = function(object2, value)
progressbar1:SetLerpRate(value)
end
local text1 = loveframes.Create("text", frame1)
text1:SetPos(5, 120)
text1:SetText("Lerp Rate")
text1:SetFont(love.graphics.newFont(10))
local text2 = loveframes.Create("text", frame1)
text2:SetFont(love.graphics.newFont(10))
text2.Update = function(object, dt)
object:SetPos(slider1:GetWidth() - object:GetWidth(), 120)
object:SetText(slider1:GetValue())
end
end
exampleslist:AddItem(progressbarexample)
------------------------------------
-- slider example
------------------------------------
local sliderexample = loveframes.Create("button")
sliderexample:SetText("Slider")
sliderexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Slider")
frame1:SetSize(300, 275)
frame1:CenterWithinArea(unpack(centerarea))
local slider1 = loveframes.Create("slider", frame1)
slider1:SetPos(5, 30)
slider1:SetWidth(290)
slider1:SetMinMax(0, 100)
local slider2 = loveframes.Create("slider", frame1)
slider2:SetPos(5, 60)
slider2:SetHeight(200)
slider2:SetMinMax(0, 100)
slider2:SetButtonSize(20, 10)
slider2:SetSlideType("vertical")
slider2.Update = function(object, dt)
object:CenterX()
end
end
exampleslist:AddItem(sliderexample)
------------------------------------
-- tabs example
------------------------------------
local tabsexample = loveframes.Create("button")
tabsexample:SetText("Tabs")
tabsexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Tabs")
frame1:SetSize(500, 300)
frame1:CenterWithinArea(unpack(centerarea))
local tabs1 = loveframes.Create("tabs", frame1)
tabs1:SetPos(5, 30)
tabs1:SetSize(490, 265)
local images = {"accept.png", "add.png", "application.png", "building.png", "bin.png", "database.png", "box.png", "brick.png"}
for i=1, 20 do
local image = "resources/images/" .. images[math.random(1, #images)]
local panel1 = loveframes.Create("panel")
panel1.Draw = function()
end
local text1 = loveframes.Create("text", panel1)
text1:SetText("Tab " ..i)
text1:SetAlwaysUpdate(true)
text1.Update = function(object, dt)
object:Center()
end
tabs1:AddTab("Tab " ..i, panel1, "Tab " ..i, image)
end
end
exampleslist:AddItem(tabsexample)
------------------------------------
-- text example
------------------------------------
local textexample = loveframes.Create("button")
textexample:SetText("Text")
textexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Text")
frame1:SetSize(500, 330)
frame1:CenterWithinArea(unpack(centerarea))
local list1 = loveframes.Create("list", frame1)
list1:SetPos(5, 30)
list1:SetSize(490, 265)
list1:SetPadding(5)
list1:SetSpacing(5)
local text1 = loveframes.Create("text")
text1:SetText(loremipsum)
text1:SetShadowColor(200, 200, 200, 255)
list1:AddItem(text1)
local shadowbutton = loveframes.Create("button", frame1)
shadowbutton:SetSize(490, 25)
shadowbutton:SetPos(5, 300)
shadowbutton:SetText("Toggle Text Shadow")
shadowbutton.OnClick = function()
text1:SetShadow(not text1:GetShadow())
end
end
exampleslist:AddItem(textexample)
------------------------------------
-- textinput example
------------------------------------
local textinputexample = loveframes.Create("button")
textinputexample:SetText("Text Input")
textinputexample.OnClick = function(object1, x, y)
local frame1 = loveframes.Create("frame")
frame1:SetName("Text Input")
frame1:SetSize(500, 90)
frame1:CenterWithinArea(unpack(centerarea))
local textinput1 = loveframes.Create("textinput", frame1)
textinput1:SetPos(5, 30)
textinput1:SetWidth(490)
textinput1.OnEnter = function(object)
if not textinput1.multiline then
object:Clear()
end
end
textinput1:SetFont(love.graphics.newFont(12))
local togglebutton = loveframes.Create("button", frame1)
togglebutton:SetPos(5, 60)
togglebutton:SetWidth(490)
togglebutton:SetText("Toggle Multiline")
togglebutton.OnClick = function(object)
if textinput1.multiline then
frame1:SetHeight(90)
frame1:CenterWithinArea(unpack(centerarea))
togglebutton:SetPos(5, 60)
textinput1:SetMultiline(false)
textinput1:SetHeight(25)
textinput1:SetText("")
else
frame1:SetHeight(365)
frame1:CenterWithinArea(unpack(centerarea))
togglebutton:SetPos(5, 335)
textinput1:SetMultiline(true)
textinput1:SetHeight(300)
textinput1:SetText("")
end
end
end
exampleslist:AddItem(textinputexample)
end
--[[---------------------------------------------------------
- func: SkinSelector()
- desc: opens a skin selector menu
--]]---------------------------------------------------------
function loveframes.debug.SkinSelector()
local skins = loveframes.skins.available
local frame = loveframes.Create("frame")
frame:SetName("Skin Selector")
frame:SetSize(200, 60)
frame:SetPos(5, 255)
local skinslist = loveframes.Create("multichoice", frame)
skinslist:SetPos(5, 30)
skinslist:SetWidth(190)
skinslist:SetChoice("Choose a skin")
skinslist.OnChoiceSelected = function(object, choice)
loveframes.util.SetActiveSkin(choice)
end
for k, v in pairs(skins) do
skinslist:AddChoice(v.name)
end
skinslist:Sort()
end