make slider slightly less ugly

This commit is contained in:
nobody
2016-02-08 14:31:30 -05:00
parent a5f1a9b1da
commit 1a75af526e
3 changed files with 17 additions and 13 deletions

View File

@@ -90,6 +90,14 @@ return function (config)
return self.parent and self.parent.flow == 'x' and 4
end
local function getSliderThumbWidth (self)
return self.parent.flow == 'x' and 32 or false
end
local function getSliderThumbHeight (self)
return self.parent.flow ~= 'x' and 32 or false
end
local function getStepperBeforeIcon (self)
return self.parent.flow == 'x' and triangle_left or triangle_up
end
@@ -188,6 +196,8 @@ return function (config)
type = { 'button' },
align = 'middle center',
margin = 0,
width = getSliderThumbWidth,
height = getSliderThumbHeight,
},
status = {
type = { 'Line', 'Control' },