list.lua

----------------------
-- List object
----------------------

local List = {}

function inside(mx, my, x, y, w, h)
    return mx >= x and mx <= (x+w) and my >= y and my <= (y+h)
end

function List:new(x, y, w, h)
    o = {}
    setmetatable(o, self)
    self.__index = self

    o.items = {}
	o.hoveritem = 0
	o.onclick = nil

    o.x = x
    o.y = y

    o.width = w
    o.height = h

    o.item_height = 23
    o.sum_item_height = 0

    o.bar = { size = 20, pos = 0, maxpos = 0, width = 15, lock = nil}
	
	o.colors = {}
	o.colors.normal = {bg = {0.19, 0.61, 0.88}, fg = {0.77, 0.91, 1}}
	o.colors.hover  = {bg = {0.28, 0.51, 0.66}, fg = {1, 1, 1}}
	o.windowcolor = {0.19, 0.61, 0.88}
	o.bordercolor = {0.28, 0.51, 0.66}
    return o
end

function List:add(title, id, tooltip)
	local item = {}
	item.title = title
	item.id = id
	if type(tooltip) == "string" then
		item.tooltip = tooltip
	else
		item.tooltip = ""
	end
    table.insert(self.items, item)
end

function List:done()

    self.items.n = #self.items

    -- Recalc bar size.
    self.bar.pos = 0

    local num_items = (self.height/self.item_height)
    local ratio = num_items/self.items.n
    self.bar.size = self.height * ratio
    self.bar.maxpos = self.height - self.bar.size - 3

    -- Calculate height of everything.
    self.sum_item_height = (self.item_height+1) * self.items.n + 2

end

function List:hasBar()
    return self.sum_item_height > self.height
end

function List:getBarRatio()
    return self.bar.pos / self.bar.maxpos
end

function List:getOffset()
    local ratio = self.bar.pos / self.bar.maxpos
    return math.floor((self.sum_item_height - self.height) * ratio + 0.5)
end

function List:update(dt)
    if self.bar.lock then
	local dy = math.floor(love.mouse.getY()-self.bar.lock.y+0.5)
	self.bar.pos = self.bar.pos + dy

	if self.bar.pos < 0 then
	    self.bar.pos = 0
	elseif self.bar.pos > self.bar.maxpos then
	   self.bar.pos = self.bar.maxpos
	end

	self.bar.lock.y = love.mouse.getY()

    end
end

function List:mousepressed(x, y, b, it)
	if b == 1 and self:hasBar() then
		local rx, ry, rw, rh = self:getBarRect()
		if inside(x, y, rx, ry, rw, rh) then
			self.bar.lock = { x = x, y = y }
			return
		end
	end

	if type(self.onclick) ~= "function" then return end

	if inside(x, y, self.x + 2, self.y + 1, self.width - 3, self.height - 3) then
		local tx, ty = x - self.x, y + self:getOffset() - self.y
		local index = math.floor((ty / self.sum_item_height) * self.items.n)
		local item = self.items[index + 1]
		if item then
			self.onclick(index + 1, b)
		end
    end
end

function List:mousereleased(x, y, b, it)
	if b == 1 and self:hasBar() then
		self.bar.lock = nil
	end
end

function List:mousemoved(x, y, dx, dy)
	self.hoveritem = 0

	if self:hasBar() then
		local rx, ry, rw, rh = self:getBarRect()
		if inside(x, y, rx, ry, rw, rh) then
			self.hoveritem = -1
			return
		end
	end

	if inside(x, y, self.x + 2, self.y + 1, self.width - 3, self.height - 3) then
		local tx, ty = x - self.x, y + self:getOffset() - self.y
		local index = math.floor((ty / self.sum_item_height) * self.items.n)
		self.hoveritem = index + 1
	end
end

function List:wheelmoved(x, y)
	if self:hasBar() then
		local per_pixel = (self.sum_item_height - self.height) / self.bar.maxpos
		local bar_pixel_dt = math.floor((self.item_height * 3) / per_pixel + 0.5)

		self.bar.pos = self.bar.pos - y * bar_pixel_dt
		if self.bar.pos > self.bar.maxpos then self.bar.pos = self.bar.maxpos end
		if self.bar.pos < 0 then self.bar.pos = 0 end
	end
end

function List:getBarRect()
	return self.x + self.width + 2, self.y + self.bar.pos + 1,
		self.bar.width - 3, self.bar.size
end

function List:getItemRect(i)
	return self.x + 2, self.y + ((self.item_height + 1) * (i - 1) + 1) - self:getOffset(),
		self.width - 3, self.item_height
end

function List:draw()
	love.graphics.setLineWidth(1)
	love.graphics.setLineStyle("rough")
	love.graphics.setColor(self.windowcolor)

	-- Get interval to display
	local start_i = math.floor(self:getOffset() / (self.item_height + 1)) + 1
	local end_i = start_i + math.floor(self.height / (self.item_height + 1)) + 1
	if end_i > self.items.n then end_i = self.items.n end

	love.graphics.setScissor(self.x, self.y, self.width, self.height)

	-- Items
	local rx, ry, rw, rh
	local colorset
	for i = start_i,end_i do
		if i == self.hoveritem then
			colorset = self.colors.hover
		else
			colorset = self.colors.normal
		end

		rx, ry, rw, rh = self:getItemRect(i)
		love.graphics.setColor(colorset.bg)
		love.graphics.rectangle("fill", rx, ry, rw, rh)

		love.graphics.setColor(colorset.fg)
		love.graphics.print(self.items[i].title, rx + 10, ry + 5) 

	end

	love.graphics.setScissor()

	-- Bar
	if self:hasBar() then
		if self.hoveritem == -1 or self.bar.lock then
			colorset = self.colors.hover
		else
			colorset = self.colors.normal
		end
		
		rx, ry, rw, rh = self:getBarRect()
		love.graphics.setColor(colorset.bg)
		love.graphics.rectangle("fill", rx, ry, rw, rh)
	end

	-- Border
	love.graphics.setColor(self.bordercolor)
	love.graphics.rectangle("line", self.x + self.width, self.y, self.bar.width, self.height)
	love.graphics.rectangle("line", self.x, self.y, self.width, self.height)

end


return List