anchor.diff:                 kbd.ESC :halt;
                end;
         else
  -        msg := TEvent.Create(evt_keydn, ord(ch));
  +        msg := TEvent.Create(evt_keych, ord(ch));
   	if assigned(focus) and not focus.send(msg) then
   	  pass; {--  TODO: global keymap --}
         end; { case }
  
positive.code:   begin
      WriteLn('morph')
    end;
  
  {-- ClockMorph -------------}
  
negative.code:     end;
  
  procedure TWorld.Step;
    var a : IActor;
    begin
      HandleKeys;
      for a in self.children do
  