anchor.diff:      km.cmd[ ^C ] := self.quit;
       km.cmd[ #32 ] := self.OnSpace;
     end;
  - 
   //  !! copied directly from TEditor.DelegateKey :/
   procedure TTokEd.DelegateKey( ext : boolean; ch : char );
  
positive.code:   begin
      wrap.Free;
    end;
  
  procedure TTokEd.keys(km : ukm.TKeyMap);
    var ch: char;
  
negative.code:     procedure OnCmdAccept( s :  string );
      procedure OnSpace;
    end;
  
  procedure TTokEd.init;
    begin
  