28 lines
810 B
Lua
28 lines
810 B
Lua
-- This file is part of SUIT, copyright (c) 2016 Matthias Richter
|
|
|
|
local BASE = (...):match('(.-)[^%.]+$')
|
|
local core = require(BASE .. 'core')
|
|
|
|
return function(checkbox, ...)
|
|
local opt, x,y,w,h = core.getOptionsAndSize(...)
|
|
opt.id = opt.id or checkbox
|
|
opt.font = opt.font or love.graphics.getFont()
|
|
|
|
w = w or (opt.font:getWidth(checkbox.text) + opt.font:getHeight() + 4)
|
|
h = h or opt.font:getHeight() + 4
|
|
|
|
core.registerHitbox(opt.id, x,y,w,h)
|
|
local hit = core.mouseReleasedOn(opt.id)
|
|
if hit then
|
|
checkbox.checked = not checkbox.checked
|
|
end
|
|
core.registerDraw(core.theme.Checkbox, checkbox, opt, x,y,w,h)
|
|
|
|
return {
|
|
id = opt.id,
|
|
hit = hit,
|
|
hovered = core.isHot(opt.id),
|
|
entered = core.isHot(opt.id) and not core.wasHot(opt.id),
|
|
left = not core.isHot(opt.id) and core.wasHot(opt.id)
|
|
}
|
|
end
|