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