[*] Initial commit.

slider.lua

@@ -0,0 +1,92 @@
+local BASE = (...):gsub('slider', '')
+
+local Widget = require BASE..'widget'
+local core = require BASE..'core'
+
+local Slider = setmetatable({}, Widget)
+Slider.__index = Slider
+
+
+function Slider.new(args)
+    local self = setmetatable(args, Slider)
+
+    self.color = self.color or core.theme.color
+    self.cornerRadius = self.cornerRadius or core.theme.cornerRadius
+    self.vertical = self.vertical or false
+    self.min = self.min or 0
+    self.max = self.max or 1
+    self.value = self.value or self.min
+    self.step = self.step or (self.max - self.min) / 10
+    return self
+end
+
+function Slider:onPointerInput(px,py, clicked, down)
+    self:grabFocus()
+    if not down then
+        return
+    end
+
+    local x,y,w,h = self.x,self.y,self.w,self.h
+
+    local fraction
+    if self.vertical then
+        fraction = math.min(1, math.max(0, (y+h - py) / h))
+    else
+        fraction = math.min(1, math.max(0, (px - x) / w))
+    end
+
+    local v = fraction*(self.max - self.min) + self.min
+    if v ~= self.value then
+        self.value = v
+        self:onChange(v)
+    end
+end
+
+function Slider:onActionInput(action)
+    local up = self.vertical and 'up' or 'right'
+    local down = self.vertical and 'down' or 'left'
+
+    local handled = false
+    if action[up] then
+        self.value = math.min(self.max, self.value + self.step)
+        handled = true
+    elseif action[down] then
+        self.value = math.max(self.min, self.value - self.step)
+        handled = true
+    end
+    if handled then
+        self:onChange(self.value)
+    end
+
+    return handled
+end
+
+function Slider:draw()
+    local x,y,w,h = self.x,self.y,self.w,self.h
+    local r = math.min(w,h) / 2.1
+    local c = self:colorForState()
+    local fraction = (self.value - self.min) / (self.max - self.min)
+
+    local xb, yb, wb, hb  -- size of the progress bar
+    if self.vertical then
+        x, w = x + w*.25, w*.5
+        xb, yb, wb, hb = x, y+h*(1-fraction), w, h*fraction
+    else
+        y, h = y + h*.25, h*.5
+        xb, yb, wb, hb = x,y, w*fraction, h
+    end
+
+    core.drawBox(x,y,w,h, c, self.cornerRadius)
+    core.drawBox(xb,yb,wb,hb, {bg=c.fg}, self.cornerRadius)
+
+    if self:isFocused() then
+        love.graphics.setColor(c.fg)
+        if self.vertical then
+            love.graphics.circle('fill', x+wb/2, yb, r)
+        else
+            love.graphics.circle('fill', x+wb, yb+hb/2, r)
+        end
+    end
+end
+
+return Slider