anchor.diff:        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;
  
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:     end;
  
  procedure TMinApp.Init; { 1/3 }
    var vsplit : integer = 0;
    begin
      // TODO: eventually i'll build a little lazarus-like RAD thing
  