Allow full render tree invalidation

gfx/element.lua

@@ -165,7 +165,7 @@ function Element:isVisible()
   return self.visible
 end
 
-function Element:setDirty()
+function Element:setDirty(fullInvalidate)
   self.dirty = true
 end
 

gfx/list.lua

@@ -66,6 +66,15 @@ function List:isHorizontal()
   return not self:isVertical()
 end
 
+function List:setDirty(fullInvalidate)
+  Element.setDirty(self, fullInvalidate)
+  if fullInvalidate then
+    for _,child in self.children do
+      child:setDirty(fullInvalidate)
+    end
+  end
+end
+
 function List:draw()
   local dirty = Element.draw(self)
   if dirty then

gfx/padding.lua

@@ -37,6 +37,13 @@ function Padding:draw()
   return false
 end
 
+function Padding:setDirty(fullInvalidate)
+  Element.setDirty(self, fullInvalidate)
+  if fullInvalidate then
+    self.element:setDirty(fullInvalidate)
+  end
+end
+
 function Padding:getPaddingLeft()
   return self.left
 end