Pop.Box/src/pop/init.moon

197 lines
6.1 KiB
Plaintext
Raw Normal View History

unless love.getVersion
error "Pop.Box only supports LÖVE versions >= 0.9.1"
import filesystem, graphics from love
import insert from table
import inheritsFromElement from require "#{...}/util"
path = ...
2016-02-25 01:02:56 +00:00
pop = {}
pop.elements = {}
pop.skins = {}
pop.events = {}
2016-02-25 01:02:56 +00:00
pop.screen = false -- initialized in pop.load()
2016-03-30 17:50:33 +00:00
pop.focused = false
-- loads elements and skins, creates pop.screen (intended to only be called once at the beginning)
2016-02-25 01:02:56 +00:00
pop.load = ->
elements = filesystem.getDirectoryItems "#{path}/elements"
2016-02-25 01:02:56 +00:00
for i = 1, #elements
-- only attempt to load lua files
unless elements[i]\sub(-4) == ".lua"
continue
-- load into pop.elements table
2016-02-25 01:02:56 +00:00
name = elements[i]\sub 1, -5
pop.elements[name] = require "#{path}/elements/#{name}"
2016-04-03 07:27:15 +00:00
if pop.elements[name].load
pop.elements[name].load pop
print "element loaded: \"#{name}\""
-- create pop.element() wrapper if possible
unless pop[name]
if pop.elements[name].wrap
pop[name] = pop.elements[name].wrap pop
else
pop[name] = (...) ->
return pop.create(name, ...)
2016-02-25 01:02:56 +00:00
print "wrapper created: \"pop.#{name}()\""
2016-02-25 01:02:56 +00:00
-- works just like above, except no wrappers
skins = filesystem.getDirectoryItems "#{path}/skins"
for i = 1, #skins
unless skins[i]\sub(-4) == ".lua"
continue
name = skins[i]\sub 1, -5
pop.skins[name] = require "#{path}/skins/#{name}"
print "skin loaded: \"#{name}\""
2016-02-25 01:02:56 +00:00
2016-04-01 21:14:24 +00:00
-- load extensions by just running them via require
extensions = filesystem.getDirectoryItems "#{path}/extensions"
for i = 1, #extensions
unless extensions[i]\sub(-4) == ".lua"
continue
name = extensions[i]\sub 1, -5
require "#{path}/extensions/#{name}"
print "extension loaded: \"#{name}\""
-- main window (called screen because there will be a window element class)
pop.screen = pop.create("element", false)\setSize(graphics.getWidth!, graphics.getHeight!)
print "created \"pop.screen\""
2016-02-25 01:02:56 +00:00
-- creates an element with specified parent (parent can be false or non-existent)
pop.create = (element, parent=pop.screen, ...) ->
if inheritsFromElement parent
element = pop.elements[element](parent, ...)
insert parent.child, element
elseif parent == false
element = pop.elements[element](false, ...)
2016-04-01 01:59:16 +00:00
else
element = pop.elements[element](pop.screen, parent, ...)
insert pop.screen.child, element
return element
pop.update = (dt, element=pop.screen) ->
--pop.screen\update dt
unless element.excludeUpdate
2016-02-25 01:02:56 +00:00
if element.update
element\update dt
for i = 1, #element.child
pop.update dt, element.child[i]
pop.draw = (element=pop.screen) ->
--pop.screen\draw!
unless element.excludeDraw
2016-02-25 01:02:56 +00:00
if element.draw
element\draw!
2016-02-25 01:02:56 +00:00
for i = 1, #element.child
pop.draw element.child[i]
2016-02-25 01:02:56 +00:00
pop.mousemoved = (x, y, dx, dy) =>
if pop.focused and pop.focused.mousemoved
return pop.focused\mousemoved x, y, dx, dy
return false
pop.mousepressed = (x, y, button, element) ->
unless element
print "mousepressed", x, y, button
element = pop.screen
2016-03-30 17:50:33 +00:00
handled = false
2016-03-30 17:50:33 +00:00
if (x >= element.x) and (x <= element.x + element.w) and (y >= element.y) and (y <= element.y + element.h)
if element.mousepressed
handled = element\mousepressed x - element.x, y - element.y, button
if handled
pop.focused = element
pop.events[button] = element
2016-03-30 17:50:33 +00:00
else
for i = 1, #element.child
handled = pop.mousepressed x, y, button, element.child[i]
if handled
break
2016-02-25 01:02:56 +00:00
return handled
pop.mousereleased = (x, y, button) ->
print "mousereleased", x, y, button
clickedHandled = false
mousereleasedHandled = false
if element = pop.events[button]
if element.clicked and (x >= element.x) and (x <= element.x + element.w) and (y >= element.y) and (y <= element.y + element.h)
if clickedHandled = element\clicked x - element.x, y - element.y, button
pop.events[button] = nil
if element.mousereleased
if mousereleasedHandled = element\mousereleased x - element.x, y - element.y, button
pop.events[button] = nil
return clickedHandled, mousereleasedHandled
2016-02-25 01:02:56 +00:00
pop.keypressed = (key) ->
print "keypressed", key
return false --TODO event handlers return if they have handled the event!
2016-02-25 01:02:56 +00:00
pop.keyreleased = (key) ->
print "keyreleased", key
return false --TODO event handlers return if they have handled the event!
2016-02-25 01:02:56 +00:00
pop.textinput = (text) ->
print "textinput", text
return false --TODO event handlers return if they have handled the event!
-- skins an element (and its children unless depth == true or 0)
-- depth can be an integer for how many levels to go down when skinning
-- defaults to pop.screen and the default skin
pop.skin = (element=pop.screen, skin=pop.skins.default, depth) ->
if element.background and skin.background
2016-02-25 01:02:56 +00:00
element.background = skin.background
if element.color and skin.color
2016-02-25 01:02:56 +00:00
element.color = skin.color
if element.font and skin.font
2016-02-25 01:02:56 +00:00
element.font = skin.font
unless depth or (depth == 0)
if depth == tonumber depth
for i = 1, #element.child
pop.skin element.child[i], skin, depth - 1
else
for i = 1, #element.child
pop.skin element.child[i], skin, false
2016-02-25 01:02:56 +00:00
pop.debugDraw = (element=pop.screen) ->
2016-02-25 01:02:56 +00:00
if element.debugDraw
element\debugDraw!
else
graphics.setLineWidth 1
graphics.setLineColor 0, 0, 0, 100
2016-02-25 01:02:56 +00:00
graphics.rectangle "fill", element.x, element.y, element.w, element.h
graphics.setColor 150, 150, 150, 150
graphics.rectangle "line", element.x, element.y, element.w, element.h
graphics.setColor 200, 200, 200, 255
graphics.print ".", element.x, element.y
for i = 1, #element.child
pop.debugDraw element.child[i]
pop.load!
return pop