Fix list not drawing background

artist/pattern.go

@@ -52,7 +52,8 @@ func DrawShatter (
 ) (
 	updatedRegion image.Rectangle,
 ) {
-	return Draw(destination, source, shatter.Shatter(destination.Bounds(), rocks...)...)
+	tiles := shatter.Shatter(destination.Bounds(), rocks...)
+	return Draw(destination, source, tiles...)
 }
 
 // AllocateSample returns a new canvas containing the result of a pattern. The

elements/basic/list.go

@@ -461,5 +461,5 @@ func (element *List) draw () {
 	).Add(innerBounds.Min).Intersect(innerBounds)
 	pattern := element.theme.Pattern(theme.PatternSunken, state)
 	artist.DrawShatter (
-		element.core, pattern, bounds, covered)
+		element.core, pattern, covered)
 }

elements/basic/listentry.go

@@ -76,7 +76,7 @@ func (entry *ListEntry) Draw (
 	return entry.drawer.Draw (
 		destination,
 		foreground,
-		offset.Add(image.Pt(padding[3], padding[0])).
+		offset.Add(image.Pt(padding[artist.SideLeft], padding[artist.SideTop])).
 		Sub(entry.drawer.LayoutBounds().Min))
 }