public App()
{
//25Aug2017 To see how Date fomatting changes in the Datagrid
Thread.CurrentThread.CurrentCulture = new CultureInfo("en-US");//US English en-US
Thread.CurrentThread.CurrentUICulture = new CultureInfo("en-US");
//Calling order found was:: Dispatcher -> Main Window -> XAML Application Dispatcher -> Unhandeled
AppDomain.CurrentDomain.UnhandledException += new UnhandledExceptionEventHandler(CurrentDomain_UnhandledException);
Dispatcher.UnhandledException += new System.Windows.Threading.DispatcherUnhandledExceptionEventHandler(Dispatcher_UnhandledException);
Application.Current.DispatcherUnhandledException += new System.Windows.Threading.DispatcherUnhandledExceptionEventHandler(Application_DispatcherUnhandledException);
MainWindow mwindow = container.Resolve <MainWindow>();
container.RegisterInstance <MainWindow>(mwindow);///new line
mwindow.Show();
mwindow.Visibility = Visibility.Hidden;
ShowProgressbar();
bool BlueSkyFound = true;
string upath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "BlueSky");;//Per User path
string applogpath = BSkyAppData.RoamingUserBSkyLogPath;
DirectoryHelper.UserPath = upath;
LifetimeService.Instance.Container = container;
container.RegisterInstance <ILoggerService>(new LoggerService(applogpath));
//Check if user profies has got old files. If so overwrite all(dialogs, modelclasses and other xmls, txt etc.)
bool hasOldUserContent = CheckIfOldInUserProfile();
//Copy folders inside Bin/Config to User profile BlueSky\config.
if (hasOldUserContent)
{
CopyL18nDialogsToUserRoamingConfig();
}
//copy config file to user profile.
CopyNewAndRetainOldSettings(string.Format(@"{0}BlueSky.exe.config", "./"),
string.Format(@"{0}BlueSky.exe.config", BSkyAppData.RoamingUserBSkyConfigPath));
container.RegisterInstance <IConfigService>(new ConfigService()); //For App Config file
container.RegisterInstance <IAdvancedLoggingService>(new AdvancedLoggingService()); //For Advanced Logging
////////////// TRY LOADING BSKY R PACKAGES HERE /////////
ILoggerService logService = container.Resolve <ILoggerService>();
logService.SetLogLevelFromConfig(); //loading log level from config file
logService.WriteToLogLevel("R.Net,Logger and Config loaded:", LogLevelEnum.Info); ///
////Recent default packages. This code must appear before loading any R package. (including BlueSky R package)
XMLitemsProcessor defaultpackages = container.Resolve <XMLitemsProcessor>();//06Feb2014
defaultpackages.MaxRecentItems = 100;
if (hasOldUserContent)
{
CopyIfNotExistsOrOld(string.Format(@"{0}DefaultPackages.xml", BSkyAppData.BSkyAppDirConfigPath), string.Format(@"{0}DefaultPackages.xml", BSkyAppData.RoamingUserBSkyConfigPath));
}
defaultpackages.XMLFilename = string.Format(@"{0}DefaultPackages.xml", BSkyAppData.RoamingUserBSkyConfigPath);//23Apr2015 ;BSkyAppData.BSkyDataDirConfigFwdSlash
defaultpackages.RefreshXMLItems();
container.RegisterInstance <XMLitemsProcessor>("defaultpackages", defaultpackages);
//Recent user packages. This code must appear before loading any R package. (including uadatapackage)
RecentItems userpackages = container.Resolve <RecentItems>();//06Feb2014
userpackages.MaxRecentItems = 100;
userpackages.XMLFilename = string.Format(@"{0}UserPackages.xml", BSkyAppData.RoamingUserBSkyConfigPath);//23Apr2015 @"./Config/UserPackages.xml";
userpackages.RefreshXMLItems();
container.RegisterInstance <RecentItems>(userpackages);
////User listed model classes.
XMLitemsProcessor modelClasses = container.Resolve <XMLitemsProcessor>();//
modelClasses.MaxRecentItems = 100;
if (hasOldUserContent)
{
CopyIfNotExistsOrOld(string.Format(@"{0}ModelClasses.xml", BSkyAppData.BSkyAppDirConfigPath), string.Format(@"{0}ModelClasses.xml", BSkyAppData.RoamingUserBSkyConfigPath));
}
modelClasses.XMLFilename = string.Format(@"{0}ModelClasses.xml", BSkyAppData.RoamingUserBSkyConfigPath);//23Apr2015 ;BSkyAppData.BSkyDataDirConfigFwdSlash
modelClasses.RefreshXMLItems();
container.RegisterInstance <XMLitemsProcessor>("modelClasses", modelClasses);
if (hasOldUserContent)
{
CopyIfNotExistsOrOld(string.Format(@"{0}GraphicCommandList.txt", BSkyAppData.BSkyAppDirConfigPath), string.Format(@"{0}GraphicCommandList.txt", BSkyAppData.RoamingUserBSkyConfigPath));
}
try
{
BridgeSetup.ConfigureContainer(container);
}
catch (Exception ex)
{
bool anothersessionrunning = false;
if (ex.Message.Contains("used by another process"))
{
anothersessionrunning = true;
}
string s1 = "\n" + BSky.GlobalResources.Properties.Resources.MakeSureRInstalled;
string s2 = "\n" + BSky.GlobalResources.Properties.Resources.MakeSure32x64Compatibility;
string s3 = "\n" + BSky.GlobalResources.Properties.Resources.MakeSureAnotherBSkySession;
string s4 = "\n" + BSky.GlobalResources.Properties.Resources.MakeSureRHOME2LatestR;
string s5 = "\n" + BSky.GlobalResources.Properties.Resources.PleaseMakeSure;
string mboxtitle0 = "\n" + BSky.GlobalResources.Properties.Resources.CantLaunchBSkyApp;
//MessageBox.Show(s5 + s3 + s4, mboxtitle0, MessageBoxButton.OK, MessageBoxImage.Stop);
if (anothersessionrunning)
{
MessageBox.Show(s5 + s3, mboxtitle0, MessageBoxButton.OK, MessageBoxImage.Stop);
}
else
{
MessageBox.Show(s5 + s4, mboxtitle0, MessageBoxButton.OK, MessageBoxImage.Stop);
}
#region R Home Dir edit prompt
if (!anothersessionrunning)
{
//Provide R Home Dir check/modify option to the user so that he can have a chance to fix this issue.
//Otherwise app will not launch until reinstalled or manually modify the config file.
//So following is much better and easier way to fix the issue.
HideMouseBusy();
HideProgressbar();
ChangeConfigForRHome();
}
#endregion
logService.WriteToLogLevel("Unable to launch the BlueSky Statistics Application." + s1 + s3, LogLevelEnum.Error);
logService.WriteToLogLevel("Exception:" + ex.Message, LogLevelEnum.Fatal);
Environment.Exit(0);
}
finally
{
HideProgressbar();
}
container.RegisterInstance <IDashBoardService>(container.Resolve <XmlDashBoardService>());
container.RegisterInstance <IDataService>(container.Resolve <DataService>());
IOutputWindowContainer iowc = container.Resolve <OutputWindowContainer>();
container.RegisterInstance <IOutputWindowContainer>(iowc);
SessionDialogContainer sdc = container.Resolve <SessionDialogContainer>(); //13Feb2013
//Recent Files settings
RecentDocs rdoc = container.Resolve <RecentDocs>(); //21Feb2013
rdoc.MaxRecentItems = 7;
rdoc.XMLFilename = string.Format(@"{0}Recent.xml", BSkyAppData.RoamingUserBSkyConfigPath); //23Apr2015 @"./Config/Recent.xml";
container.RegisterInstance <RecentDocs>(rdoc);
Window1 window = container.Resolve <Window1>();
container.RegisterInstance <Window1>(window); ///new line
window.Closed += new EventHandler(window_Closed); //28Jan2013
window.Owner = mwindow; //28Jan2013
//17Apr2017 Showing version number on titlebar of main window
Version ver = Assembly.GetExecutingAssembly().GetName().Version;
string strfullversion = ver.ToString(); //Full version with four parts
string shortversion = string.Format("{0}.{1}", ver.Major.ToString(), ver.Minor.ToString());
string titlemsg = string.Empty;
titlemsg = string.Format("BlueSky Statistics (Open Source Desktop Edition. Ver- {0})", shortversion);
window.Title = titlemsg;
window.Show();
window.Activate();
ShowMouseBusy();//02Apr2015 show mouse busy
//// one Syntax Editor window for one session ////29Jan2013
SyntaxEditorWindow sewindow = container.Resolve <SyntaxEditorWindow>();
container.RegisterInstance <SyntaxEditorWindow>(sewindow);///new line
sewindow.Owner = mwindow;
#region Create Column Significance codes List
SignificanceCodesHandler.CreateSignifColList();
#endregion
//load default packages
window.setLMsgInStatusBar(BSky.GlobalResources.Properties.Resources.StatMsgPkgLoad);
IAnalyticsService IAService = LifetimeService.Instance.Container.Resolve <IAnalyticsService>();
BridgeSetup.LoadDefaultRPackages(IAService);
string PkgLoadStatusMessage = BridgeSetup.PkgLoadStatusMessage;
bool BlueSkyPkgErr = PkgLoadStatusMessage.Contains("BlueSky") ? true : false;
if (PkgLoadStatusMessage != null && PkgLoadStatusMessage.Trim().Length > 0)
{
StringBuilder sb = new StringBuilder();
string[] defpacklist = PkgLoadStatusMessage.Split('\n');
foreach (string s in defpacklist)
{
if (s != null && (s.ToLower().Contains("error")))//|| s.ToLower().Contains("warning")))
{
//sb.Append(s.Substring(0, s.IndexOf(". ")) + "\n");
sb.Append(s.Replace("Error loading R package:", "") + "\n");
}
}
if (sb.Length > 0)
{
sb.Remove(sb.Length - 1, 1);//removing last comma
string defpkgs = sb.ToString();
string firstmsg = BSky.GlobalResources.Properties.Resources.ErrLoadingRPkg + "\n\n";
string msg = "\n\n" + BSky.GlobalResources.Properties.Resources.DisableAntivirus;// +
if (BlueSkyPkgErr)
{
msg = string.Empty;
}
HideMouseBusy();
string mboxtitle1 = BSky.GlobalResources.Properties.Resources.ErrReqRPkgMissing;
MessageBox.Show(firstmsg + defpkgs + msg, mboxtitle1, MessageBoxButton.OK, MessageBoxImage.Error);
Window1.DatasetReqPackages = defpkgs;
BlueSkyFound = false;
}
}
//deimal default should be set here as now BlueSky is loaded
window.SetRDefaults();
IAdvancedLoggingService advlog = container.Resolve <IAdvancedLoggingService>();;//01May2015
advlog.RefreshAdvancedLogging();
window.setInitialAllModels(); //select All_Models in model class dropdown.
window.setLMsgInStatusBar("");
HideMouseBusy(); //02Apr2015 hide mouse busy
if (BlueSkyFound)
{
try
{
FileNewCommand newds = new FileNewCommand();
newds.NewFileOpen("");
}
catch (Exception ex)
{
string so = BSky.GlobalResources.Properties.Resources.ErrLoadingNewDS;
string mboxtitle2 = BSky.GlobalResources.Properties.Resources.BSkyPkgMissing;
logService.WriteToLogLevel("ERROR: " + ex.Message, LogLevelEnum.Error);
MessageBox.Show(so, mboxtitle2, MessageBoxButton.OK, MessageBoxImage.Error);
}
}
}
// Use MicroSoft Interop DLL for exporting to Excel
private void MSExportAPAToWord()
{
IAdvancedLoggingService advlog = LifetimeService.Instance.Container.Resolve <IAdvancedLoggingService>();;//19Mar2018
advlog.RefreshAdvancedLogging();
AdvancedLogging = AdvancedLoggingService.AdvLog; //19Mar2018
//Dynamically reading Flexgrid and getting row/col headers and data. (Not reading them from properties)
string title = string.Empty; //"First:"+Header.Text;
string secTitle = Header.Text;
string[,] rh = GetRowHeaders();
string[,] ch = GetColHeaders();
string[,] gd = GetGridData();
string tblNo = string.Empty;//"Table 1.1";
string[,] supscr = GetSuperScript();
string errwrn = Metadata != null?DictionaryToString(Metadata) : null;
string starfootnotes = string.Empty;
bool templatedDialog = false;//There are only 4-5 templated dialogs and they do not have footer text. If they do we can fix this line.
if (templatedDialog)
{
starfootnotes = FootNotes != null?DictionaryToString(FootNotes) : null; //I think this works for templated dialogs
}
else
{
starfootnotes = this.starText.Text != null ? this.starText.Text : string.Empty;//This works for non-templated dialogs
}
if (AdvancedLogging)
{
logService.WriteToLogLevel("Values to be passed to MSWord: ", LogLevelEnum.Info);
}
string allrh = Join2DStringArray("#$", rh);
string allch = Join2DStringArray("#$", ch);
string allgd = Join2DStringArray("#$", gd);
string allsupscr = Join2DStringArray("#$", supscr);
string ALLVals = string.Format("title= {0} \n ColHeaders={1} \n RowHeaders={2} \n GridData={3} \n ErrWarn={4} \n Footnotes={5} \n SupScr={6}", title, allch, allrh, allgd, errwrn, starfootnotes, allsupscr);
if (AdvancedLogging)
{
logService.WriteToLogLevel("\n" + ALLVals + "\n", LogLevelEnum.Info);
}
Mouse.OverrideCursor = System.Windows.Input.Cursors.Wait;
if (AdvancedLogging)
{
logService.WriteToLogLevel("Creating object to make call to MSWord: ", LogLevelEnum.Info);
}
try
{
if (_MSWordObj == null)
{
_MSWordObj = new MSWordInterop();
}
if (AdvancedLogging)
{
logService.WriteToLogLevel("Before making call to MSWord: ", LogLevelEnum.Info);
}
_MSWordObj.GenerateAPATableInWord("test.docx", ch, rh, gd, title, secTitle, starfootnotes, tblNo); //dynamically read from flexgrid and export APA to MSWord
if (AdvancedLogging)
{
logService.WriteToLogLevel("After making call to MSWord: ", LogLevelEnum.Info);
}
}
catch (Exception ex)
{
MessageBox.Show("Error exporting to MSWord. Make sure MSWord is installed.", "Warning", MessageBoxButton.OK, MessageBoxImage.Warning);
logService.WriteToLogLevel("Error exporting to MSWord. Detailed Message: " + ex.StackTrace, LogLevelEnum.Warn);
if (_MSWordObj != null)
{
_MSWordObj = null;
}
}
finally
{
Mouse.OverrideCursor = null;
}
}
public App()
{
//Calling order found was:: Dispatcher -> Main Window -> XAML Application Dispatcher -> Unhandeled
AppDomain.CurrentDomain.UnhandledException += new UnhandledExceptionEventHandler(CurrentDomain_UnhandledException);
Dispatcher.UnhandledException += new System.Windows.Threading.DispatcherUnhandledExceptionEventHandler(Dispatcher_UnhandledException);
Application.Current.DispatcherUnhandledException += new System.Windows.Threading.DispatcherUnhandledExceptionEventHandler(Application_DispatcherUnhandledException);
MainWindow mwindow = container.Resolve <MainWindow>();
container.RegisterInstance <MainWindow>(mwindow);///new line
mwindow.Show();
mwindow.Visibility = Visibility.Hidden;
ShowProgressbar(); //strat showing progress bar
bool BlueSkyFound = true; //Assuming BlueSky R package is present.
LifetimeService.Instance.Container = container;
container.RegisterInstance <ILoggerService>(new LoggerService()); /// For Application log. Starts with default level "Error"
container.RegisterInstance <IConfigService>(new ConfigService()); //For App Config file
container.RegisterInstance <IAdvancedLoggingService>(new AdvancedLoggingService()); //For Advanced Logging
////////////// TRY LOADING BSKY R PACKAGES HERE /////////
ILoggerService logService = container.Resolve <ILoggerService>();
logService.SetLogLevelFromConfig(); //loading log level from config file
logService.WriteToLogLevel("R.Net,Logger and Config loaded:", LogLevelEnum.Info); ///
////Recent default packages. This code must appear before loading any R package. (including uadatapackage)
XMLitemsProcessor defaultpackages = container.Resolve <XMLitemsProcessor>();//06Feb2014
defaultpackages.MaxRecentItems = 50;
defaultpackages.XMLFilename = string.Format(@"{0}DefaultPackages.xml", BSkyAppData.BSkyDataDirConfigFwdSlash);//23Apr2015 @"./Config/DefaultPackages.xml";
defaultpackages.RefreshXMLItems();
container.RegisterInstance <XMLitemsProcessor>(defaultpackages);
//Recent user packages. This code must appear before loading any R package. (including uadatapackage)
RecentItems userpackages = container.Resolve <RecentItems>();//06Feb2014
userpackages.MaxRecentItems = 50;
userpackages.XMLFilename = string.Format(@"{0}UserPackages.xml", BSkyAppData.BSkyDataDirConfigFwdSlash);//23Apr2015 @"./Config/UserPackages.xml";
userpackages.RefreshXMLItems();
container.RegisterInstance <RecentItems>(userpackages);
try
{
BridgeSetup.ConfigureContainer(container);
}
catch (Exception ex)
{
string s1 = "\n1. R is installed. BlueSky Statistics requires R.";
string s2 = "\n2. Binary incompatibility between BlueSky Statistics and R. 64bit BlueSky Statistics requires 64bit R and 32bit BlueSky Statistics required 32bit R. (Go to Help > About in BlueSky Statistics)";
string s3 = "\n3. Another session of the BlueSky application is not already running.";
MessageBox.Show("Please make sure:" + s1 + s2 + s3, "Error: Can't Launch BlueSky Application!", MessageBoxButton.OK, MessageBoxImage.Stop);
logService.WriteToLogLevel("Unable to launch the BlueSky Application." + s1 + s3, LogLevelEnum.Error);
Environment.Exit(0);
}
finally
{
HideProgressbar();
}
container.RegisterInstance <IDashBoardService>(container.Resolve <XmlDashBoardService>());
container.RegisterInstance <IDataService>(container.Resolve <DataService>());
IOutputWindowContainer iowc = container.Resolve <OutputWindowContainer>();
container.RegisterInstance <IOutputWindowContainer>(iowc);
SessionDialogContainer sdc = container.Resolve <SessionDialogContainer>(); //13Feb2013
//Recent Files settings
RecentDocs rdoc = container.Resolve <RecentDocs>(); //21Feb2013
rdoc.MaxRecentItems = 7;
rdoc.XMLFilename = string.Format(@"{0}Recent.xml", BSkyAppData.BSkyDataDirConfigFwdSlash);
container.RegisterInstance <RecentDocs>(rdoc);
Window1 window = container.Resolve <Window1>();
container.RegisterInstance <Window1>(window); ///new line
window.Closed += new EventHandler(window_Closed); //28Jan2013
window.Owner = mwindow; //28Jan2013
window.Show();
window.Activate();
ShowMouseBusy();//02Apr2015 show mouse busy
//// one Syntax Editor window for one session ////29Jan2013
SyntaxEditorWindow sewindow = container.Resolve <SyntaxEditorWindow>();
container.RegisterInstance <SyntaxEditorWindow>(sewindow);///new line
sewindow.Owner = mwindow;
//load default packages
window.setLMsgInStatusBar("Please wait ... Loading required R packages ...");
IAnalyticsService IAService = LifetimeService.Instance.Container.Resolve <IAnalyticsService>();
BridgeSetup.LoadDefaultRPackages(IAService);
string PkgLoadStatusMessage = BridgeSetup.PkgLoadStatusMessage;
if (PkgLoadStatusMessage != null && PkgLoadStatusMessage.Trim().Length > 0)
{
StringBuilder sb = new StringBuilder();
string[] defpacklist = PkgLoadStatusMessage.Split('\n');
foreach (string s in defpacklist)
{
if (s != null && (s.ToLower().Contains("error"))) //|| s.ToLower().Contains("warning")))
{
sb.Append(s.Replace("Error loading R package:", "") + "\n");
}
}
if (sb.Length > 0)
{
sb.Remove(sb.Length - 1, 1);//removing last comma
string defpkgs = sb.ToString();
string firstmsg = "Error loading following R package(s):\n\n";
string msg = "\n\nInstall required R packages from CRAN by clicking:\nTools > Package > Install required package(s) from CRAN.";// +
HideMouseBusy();
MessageBox.Show(firstmsg + defpkgs + msg, "Error: Required R Package(s) Missing", MessageBoxButton.OK, MessageBoxImage.Warning);
if (defpkgs.Contains("BlueSky"))
{
BlueSkyFound = false;
}
}
}
//deimal default should be set here as now BlueSky is loaded
window.SetRDefaults();
IAdvancedLoggingService advlog = container.Resolve <IAdvancedLoggingService>();;//01May2015
advlog.RefreshAdvancedLogging();
HideMouseBusy();//02Apr2015 hide mouse busy
if (BlueSkyFound)
{
try
{
//Try loading empty dataset(newdataset) just after app finished loading itself and R packages.
FileNewCommand newds = new FileNewCommand();
newds.NewFileOpen("");
}
catch (Exception ex)
{
MessageBox.Show("Error Loading new dataset. Make sure you have BlueSky R package installed", "BlueSky pacakge missing", MessageBoxButton.OK, MessageBoxImage.Error);
}
}
window.setLMsgInStatusBar("For additional functionality and for details on the commercial edition, ");
}