anchor.diff:      procedure Test_CreateABlock(Sender: TObject);
       {$ENDIF}
       {$ENDIF}
  +    Procedure InitMacOSMenu;
     protected
       procedure RefreshConnectionStatusDisplay;
       procedure RefreshWalletLockIcon;
  
positive.code:   // Things for testing purposes only
    InitMenuForTesting;
    {$ENDIF}
  end;
  
  procedure TFRMMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
  
negative.code: 
  {$R *.lfm}
  
  uses LCLIntf, LCLType, UUserInterface, UThread, UOpTransaction, UWizard, UTime;
  
  const
    CT_FOOTER_TOOLBAR_LEFT_PADDING = 8;
  