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: 
  procedure TMinApp.OtherWindow;
    begin
      // so horrible! get a real 'focus' concept!
      // focus.defocus;
      if focus = ed then
        begin focus := tg; keymap := km_tg; kvm.HideCursor;
        end
      else //if focus = tg then
        begin focus := ed; keymap := km_ed; kvm.ShowCursor;
        end;
      // focus.focus;
    end;
  
  
negative.code:       rsOutln  : udb.TRecordSet;
        focus, oldfocus : utv.TView;
        km_ed, km_tg, km_sh : ukm.TKeyMap;
        _focusables : TFocusRing;
        _focus : TFocusCursor;
      public
        procedure Init; override;
        procedure Step; override;
  