140 lines
3.1 KiB
Lua
140 lines
3.1 KiB
Lua
--[[------------------------------------------------
|
|
-- Love Frames - A GUI library for LOVE --
|
|
-- Copyright (c) 2012-2014 Kenny Shields --
|
|
--]]------------------------------------------------
|
|
|
|
return function(loveframes)
|
|
---------- module start ----------
|
|
|
|
-- scrollbutton clas
|
|
local newobject = loveframes.NewObject("scrollbutton", "loveframes_object_scrollbutton", true)
|
|
|
|
--[[---------------------------------------------------------
|
|
- func: initialize()
|
|
- desc: initializes the object
|
|
--]]---------------------------------------------------------
|
|
function newobject:initialize(scrolltype)
|
|
|
|
self.type = "scrollbutton"
|
|
self.scrolltype = scrolltype
|
|
self.width = 16
|
|
self.height = 16
|
|
self.down = false
|
|
self.internal = true
|
|
self.OnClick = function() end
|
|
|
|
-- apply template properties to the object
|
|
loveframes.ApplyTemplatesToObject(self)
|
|
self:SetDrawFunc()
|
|
end
|
|
|
|
--[[---------------------------------------------------------
|
|
- func: update(deltatime)
|
|
- desc: updates the object
|
|
--]]---------------------------------------------------------
|
|
function newobject:update(dt)
|
|
|
|
local visible = self.visible
|
|
local alwaysupdate = self.alwaysupdate
|
|
|
|
if not visible then
|
|
if not alwaysupdate then
|
|
return
|
|
end
|
|
end
|
|
|
|
self:CheckHover()
|
|
|
|
local hover = self.hover
|
|
local parent = self.parent
|
|
local base = loveframes.base
|
|
local update = self.Update
|
|
|
|
if not hover then
|
|
self.down = false
|
|
else
|
|
if loveframes.downobject == self then
|
|
self.down = true
|
|
end
|
|
end
|
|
|
|
if not self.down and loveframes.downobject == self then
|
|
self.hover = true
|
|
end
|
|
|
|
-- move to parent if there is a parent
|
|
if parent ~= base then
|
|
self.x = parent.x + self.staticx
|
|
self.y = parent.y + self.staticy
|
|
end
|
|
|
|
if update then
|
|
update(self, dt)
|
|
end
|
|
|
|
end
|
|
|
|
--[[---------------------------------------------------------
|
|
- func: mousepressed(x, y, button)
|
|
- desc: called when the player presses a mouse button
|
|
--]]---------------------------------------------------------
|
|
function newobject:mousepressed(x, y, button)
|
|
|
|
local visible = self.visible
|
|
|
|
if not visible then
|
|
return
|
|
end
|
|
|
|
local hover = self.hover
|
|
|
|
if hover and button == 1 then
|
|
local baseparent = self:GetBaseParent()
|
|
if baseparent.type == "frame" then
|
|
baseparent:MakeTop()
|
|
end
|
|
self.down = true
|
|
loveframes.downobject = self
|
|
end
|
|
|
|
end
|
|
|
|
--[[---------------------------------------------------------
|
|
- func: mousereleased(x, y, button)
|
|
- desc: called when the player releases a mouse button
|
|
--]]---------------------------------------------------------
|
|
function newobject:mousereleased(x, y, button)
|
|
|
|
local visible = self.visible
|
|
|
|
if not visible then
|
|
return
|
|
end
|
|
|
|
local hover = self.hover
|
|
local down = self.down
|
|
local onclick = self.OnClick
|
|
|
|
if hover and down then
|
|
if button == 1 then
|
|
onclick(x, y, self)
|
|
end
|
|
end
|
|
|
|
self.down = false
|
|
|
|
end
|
|
|
|
--[[---------------------------------------------------------
|
|
- func: GetScrollType()
|
|
- desc: gets the object's scroll type
|
|
--]]---------------------------------------------------------
|
|
function newobject:GetScrollType()
|
|
|
|
return self.scrolltype
|
|
|
|
end
|
|
|
|
---------- module end ----------
|
|
end
|