Allow resizing padding

This commit is contained in:
Gabriel Tofvesson 2024-10-12 01:28:37 +02:00
parent 233d3119e5
commit 05116679d2

View File

@ -60,6 +60,26 @@ function Padding:getPaddingBottom()
return self.bottom return self.bottom
end end
local function compareSet(value, default, didChange)
return value or default, didChange or (value ~= nil and value ~= default)
end
function Padding:setPadding(opts)
if type(opts) ~= "table" then
return
end
local changed = false
self.left, changed = compareSet(opts.left, self.left, changed)
self.right, changed = compareSet(opts.right, self.right, changed)
self.top, changed = compareSet(opts.top, self.top, changed)
self.bottom, changed = compareSet(opts.bottom, self.bottom, changed)
if changed then
self:_reload()
end
end
function Padding:getInnerWidth() function Padding:getInnerWidth()
return self.element:getWidth() return self.element:getWidth()
end end