| window tick |
tick := 0.
window := ScheduledWindow new.
window component: (VisualBlock block: 
	[:gc :bounds |
		| label |
		tick := (tick + 1 \\ 128).
		gc paint: (ColorValue red blendWith: (Color brightness: (tick / 256) + 0.5)).
		label := Label with: 'Out to lunch' asText allBold.
		label displayOn: gc at: (bounds extent - label preferredBounds extent) half]).
window open.
[[window isOpen] whileTrue:
[(Delay forMilliseconds: 5) wait.
window invalidateRectangle: window bounds repairNow: true forComponent: window component]] fork