anchor.diff:  
   procedure TfpgBaseForm.MsgActivate(var msg: TfpgMessageRec);
   begin
  -//  writeln('BaseForm - MsgActivate');
  +  {$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
  
positive.code: uses
    fpg_main,
    fpg_popupwindow,
    fpg_menu;
    
  type
    // to access protected methods
  
negative.code:   i: integer;
    wg: TfpgWidget;
  begin
    {$IFDEF DEBUG}
    SendDebug(Classname + '.Keypress');
    {$ENDIF}
    // find the TfpgMenuBar
    if not consumed then
    begin
  