anchor.diff:      typeMenu.key := 'knd';
       typeMenu.OnSave := self.OnChooseType;
   -{ procedure TMinApp.Init  2/2 }
  +{ procedure TMinApp.Init  2/3 }
   
       { a menu for selecting pages (on ^G }
       pageMenu := TDBMenu.Create(self);
  
positive.code: program min;
  uses xpc, cx, mnml, mned, cw, fx, kvm, sysutils, kbd, dndk, ustr,
    impworld, cli, ub4vm, udb, udc, udv, ukm, utv, uapp, undk, fs,
    strutils, ui, uimpforth, uimpshell, uimpwords, uimpndk;
  
  
  type
    TMinApp = class (uapp.TCustomApp)
      protected
        ed : mned.TEditor;
  
negative.code: 
  procedure TMinApp.OtherWindow;
    begin
  //    _focus.value.GetBlur;
      _focus.MoveNext; if _focus.AtClasp then _focus.MoveNext;
  //    _focus.value.GetFocus;
  
      // so horrible! get a real 'focus' concept!
      if _focus.value.equals(ed)
        then begin keymap := km_ed; kvm.ShowCursor end
        else begin keymap := km_tg; kvm.HideCursor end
    end;
  
  