anchor.diff:      procedure Test_CreateABlock(Sender: TObject);
       {$ENDIF}
       {$ENDIF}
  +    Procedure InitMacOSMenu;
     protected
       procedure RefreshConnectionStatusDisplay;
       procedure RefreshWalletLockIcon;
  
positive.code: 
  {%endregion}
  
  end.
  
  
negative.code:   // Things for testing purposes only
    InitMenuForTesting;
    {$ENDIF}
    InitMacOSMenu;
  end;
  
  procedure TFRMMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
  