summaryrefslogtreecommitdiffhomepage
path: root/button.lua
blob: 7afc8e9895be00b4d618ec4347df4c918feedd4f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
--- `Button`
-- Menu element that can be activated by user.
Button = {
	parent = --[[not.Menu]]nil,
	x = 0,
	y = 0,
	text = "",
	focused = false,
	sprite,
	quads,
	delay = 2,
	parent,
}

-- `Button` is a child of `Element`.
require "element"
Button.__index = Button
setmetatable(Button, Element)

function Button:new (parent)
	local o = setmetatable({}, self)
	o.parent = parent
	o.sprite, o.quads = parent:getSheet()
	return o
end

function Button:setText (text)
	self.text = text or ""
	return self
end

function Button:focus(next)
	self.focused = true
	return true
end
function Button:blur ()
	self.focused = false
end

function Button:active () end
function Button:isEnabled ()
	return true
end

function Button:draw (scale)
	local x,y = self:getPosition()
	local quad = self.quads
	local sprite = self.sprite
	if self:isEnabled() then
		love.graphics.setColor(255, 255, 255, 255)
	else
		love.graphics.setColor(140, 140, 140, 255)
	end
	love.graphics.draw(sprite, quad.button.normal, x*scale, y*scale, 0, scale, scale)
	if self.focused then
		love.graphics.draw(sprite, quad.arrow_l, (x+54+math.floor(self.delay))*scale, (y+5)*scale, 0, scale, scale)
		love.graphics.draw(sprite, quad.arrow_r, (x-2-math.floor(self.delay))*scale, (y+5)*scale, 0, scale, scale)
	end
	love.graphics.setFont(Font)
	love.graphics.printf(self.text, (x+2)*scale, (y+4)*scale, 54, "center", 0, scale, scale)
end

function Button:update (dt)
	self.delay = self.delay + dt
	if self.delay > Button.delay then -- Button.delay is initial
		self.delay = self.delay - Button.delay
	end
end

function Button:controlpressed (set, action, key)
	if action == "attack" and self.focused and self:isEnabled() then
		self:active()
	end
end

return Button