anchor.diff:  uses
     fpg_main,
     fpg_popupwindow,
  -  fpg_menu;
  +  fpg_menu
  +  {$IFDEF DEBUG}
  +  ,dbugintf
  +  {$ENDIF}
  +  ;
     
   type
     // to access protected methods
  
positive.code: 
  procedure TfpgBaseForm.MsgActivate(var msg: TfpgMessageRec);
  begin
  //  writeln('BaseForm - MsgActivate');
    if (fpgApplication.TopModalForm = nil) or (fpgApplication.TopModalForm = self) then
    begin
      FocusRootWidget := self;
      
      if FFormDesigner <> nil then
  
negative.code:   i: integer;
    wg: TfpgWidget;
  begin
    {$IFDEF DEBUG}
    SendDebug(Classname + '.Keypress');
    {$ENDIF}
    // find the TfpgMenuBar
    if not consumed then
    begin
  