anchor.diff:  {-- ClockMorph -------------}
   type
     TClockMorph = class ( TMorph )
  -    color : byte;
  +    dirty : boolean;
  +    color, last, text : string;
       constructor Create;
       procedure Draw; override;
       function ToString:string; override;
  
positive.code:     result := children.length = 0;
    end;
  
  initialization
  
    kvm.ClrScr;
    world := TWorld.Create;
    focus := TShellMorph.Create;
    world.add(focus);
    launch(world);
  
  finalization
  
negative.code:   begin
      // TODO: without this next line (at least on freebsd)
      // it won't readkey. why not!?!
      if not keypressed then sleep(5);
      if keypressed then
        case kbd.ReadKey(ch) of
  	^C : halt;
        else
          msg := TEvent.Create(evt_keych, ch);
  	if assigned(focus) and not focus.send(msg) then
  	  pass; {--  TODO: global keymap --}
        end; { case }
  