2007-11-07
| window tick | tick := 0. window := ScheduledWindow new. window component: (VisualBlock block: [:gc :bounds | | label | tick := (tick + 1 \\ 128). gc paint: (ColorValue red blendWith: (ColorValue brightness: (tick / 256) + 0.5)). label := Label with: 'Out to lunch' asText allBold. label displayOn: gc at: ((bounds extent - label preferredBounds extent) // 2)]). window open. [[window isOpen] whileTrue: [(Delay forMilliseconds: 5) wait. window invalidateRectangle: window bounds repairNow: true forComponent: window component]] fork
Script updated: ColorValue instead of Color. // 2 instead of #half.
Color comes from Squeak compatibility for Seaside.
#half is new in VW7.6