anchor.diff:   
   type
  -  TFocusRing = rings.GRing<TView>;
  -  TFocusCursor = rings.IRingCursor<TView>;
     TMinApp = class (uapp.TCustomApp)
       protected
         ed : mned.TEditor;
  
positive.code:     _views.extend([ ed, tg, ish, itv, _ies, _oes ]);
  
      { focus ring }
      _focusables := TFocusRing.Create;
      _focusables.extend([ ed, tg, _ies, _oes ]);
      _focus := _focusables.MakeCursor;
      _focus.ToTop;
  
      { handle command line arguments }
  
negative.code:       pageMenu : udv.TDBMenu;
        _ies, _oes : TEdgeMenu;
        rsOutln  : udb.TRecordSet;
        km_ed, km_tg, km_sh : ukm.TKeyMap;
      public
        procedure Init; override;
        procedure Step; override;
  