anchor.diff:   
   procedure HandleKeys;
  -  var ch : char; msg:TEvent;
  +  var ch : char; msg:IMessage;
     begin
       // TODO: without this next line (at least on freebsd)
       // it won't readkey. why not!?!
  
positive.code:              end;
        else
          msg := TEvent.Create(evt_keydn, ord(ch));
          if assigned(focus) then
  	  if (focus is TActor)
  	    and not (focus as TActor).handle(msg)
  	    then pass; {--  TODO: global keymap --}
  	msg.Free;
        end; { case }
    end;
  
  
negative.code:   world := TWorld.Create;
    focus := TShellMorph.Create;
    world.add(focus);
    launch(world);
  
  finalization
  
  