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