diff options
author | Matthias Richter <vrld@vrld.org> | 2012-02-07 23:10:29 +0100 |
---|---|---|
committer | Matthias Richter <vrld@vrld.org> | 2012-02-07 23:10:29 +0100 |
commit | 40dbc7134bae5cff48c2262d92721a3dd5394f84 (patch) | |
tree | de6097abf421b873aa6052928c56fbd578bafa01 /slider2d.lua | |
download | Quickie-40dbc7134bae5cff48c2262d92721a3dd5394f84.tar.gz Quickie-40dbc7134bae5cff48c2262d92721a3dd5394f84.tar.bz2 Quickie-40dbc7134bae5cff48c2262d92721a3dd5394f84.tar.xz Quickie-40dbc7134bae5cff48c2262d92721a3dd5394f84.zip |
Initial commit
Diffstat (limited to 'slider2d.lua')
-rw-r--r-- | slider2d.lua | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/slider2d.lua b/slider2d.lua new file mode 100644 index 0000000..023d16f --- /dev/null +++ b/slider2d.lua @@ -0,0 +1,55 @@ +local core = require((...):match("^(.+)%.[^%.]+") .. '.core') + +return function(info, x,y,w,h, draw) + assert(type(info) == 'table' and type(info.value) == "table", "Incomplete slider value info") + info.min = info.min or {x = 0, y = 0} + info.max = info.max or {x = math.max(info.value.x or 0, 1), y = math.max(info.value.y or 0, 1)} + info.step = info.step or {x = (info.max.x - info.min.x)/50, y = (info.max.y - info.min.y)/50} + local fraction = { + x = (info.value.x - info.min.x) / (info.max.x - info.min.x), + y = (info.value.y - info.min.y) / (info.max.y - info.min.y), + } + + local id = core.generateID() + core.mouse.updateState(id, x,y,w,h) + core.makeTabable(id) + core.registerDraw(id,draw or core.style.Slider2D, fraction, x,y,w,h) + + -- update value + if core.isActive(id) then + core.setKeyFocus(id) + fraction = { + x = (core.mouse.x - x) / w, + y = (core.mouse.y - y) / h, + } + fraction.x = math.min(1, math.max(0, fraction.x)) + fraction.y = math.min(1, math.max(0, fraction.y)) + local v = { + x = fraction.x * (info.max.x - info.min.x) + info.min.x, + y = fraction.y * (info.max.y - info.min.y) + info.min.y, + } + if v.x ~= info.value.x or v.y ~= info.value.y then + info.value = v + return true + end + end + + local changed = false + if core.hasKeyFocus(id) then + if core.keyboard.key == 'down' then + info.value.y = math.min(info.max.y, info.value.y + info.step.y) + changed = true + elseif core.keyboard.key == 'up' then + info.value.y = math.max(info.min.y, info.value.y - info.step.y) + changed = true + end + if core.keyboard.key == 'right' then + info.value.x = math.min(info.max.x, info.value.x + info.step.x) + changed = true + elseif core.keyboard.key == 'left' then + info.value.x = math.max(info.min.x, info.value.x - info.step.x) + changed = true + end + end + return changed +end |