26 lines
792 B
Lua
26 lines
792 B
Lua
-- This file is part of SUIT, copyright (c) 2016 Matthias Richter
|
|
|
|
local BASE = (...):match('(.-)[^%.]+$')
|
|
local min, max = math.min, math.max;
|
|
|
|
return function(core, info, ...)
|
|
local opt, x,y,w,h = core.getOptionsAndSize(...)
|
|
|
|
opt.id = opt.id or info
|
|
|
|
info.min = info.min or min(info.value, 0)
|
|
info.max = info.max or max(info.value, 1)
|
|
info.step = info.step or (info.max - info.min) / 10
|
|
local fraction = (info.value - info.min) / (info.max - info.min)
|
|
|
|
opt.state = core:registerHitbox(opt.id, x,y,w,h)
|
|
|
|
core:registerDraw(opt.draw or core.theme.ProgressBar, fraction, opt, x,y,w,h)
|
|
|
|
return {
|
|
id = opt.id,
|
|
hovered = core:isHovered(opt.id),
|
|
entered = core:isHovered(opt.id) and not core:wasHovered(opt.id),
|
|
left = not core:isHovered(opt.id) and core:wasHovered(opt.id)
|
|
}
|
|
end
|