anchor.diff:      end;
    
  -procedure TMinApp.Init; { 1/2 }
  +procedure TMinApp.Init; { 1/3 }
     var vsplit : integer = 0;
     begin
       // TODO: eventually i'll build a little lazarus-like RAD thing
  
positive.code:     { set up component rendering  }
      ish.visible := false; itv.visible := false;
      _views.extend([ ed, tg, ish, itv ]);
  
      { handle command line arguments }
      if ParamCount = 1 then
  
negative.code:     typeMenu.key := 'knd';
      typeMenu.OnSave := self.OnChooseType;
  { procedure TMinApp.Init  2/3 }
  
      { a menu for selecting pages (on ^G }
      pageMenu := TDBMenu.Create(self);
  