Merge pull request IDEMSInternational#8556 from derekagorhom/Addition…

…al_Toolbar_Changes Allow the user to easily reopen previously opened scripts
Vitalis95 · Oct 18, 2023 · e570fe9 · e570fe9
2 parents 89d4d68 + 749f3d1
commit e570fe9
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/instat/dlgImportDataset.vb b/instat/dlgImportDataset.vb
@@ -716,6 +716,7 @@ Public Class dlgImportDataset
                               "Load Script From File", MessageBoxButtons.YesNo) = DialogResult.Yes Then
                     Try
                         frmMain.ucrScriptWindow.strActiveTabText = File.ReadAllText(strFilePathSystem)
+                        frmMain.clsRecentItems.addToMenu(Replace(strFilePathSystem, "\", "/"))
                     Catch
                         MessageBox.Show("Could not load the script from file." &
                               Environment.NewLine & "The file may be in use by another program or you may not have access to write to the specified location.",

diff --git a/instat/ucrScript.vb b/instat/ucrScript.vb
@@ -212,6 +212,8 @@ Public Class ucrScript
                     File.WriteAllText(dlgSave.FileName, If(bIsLog, clsScriptLog.Text, clsScriptActive.Text))
                     bIsTextChanged = False
                     TabControl.SelectedTab.Text = System.IO.Path.GetFileName(dlgSave.FileName)
+                    frmMain.clsRecentItems.addToMenu(Replace(Path.Combine(Path.GetFullPath(FileIO.SpecialDirectories.MyDocuments), System.IO.Path.GetFileName(dlgSave.FileName)), "\", "/"))
+                    frmMain.bDataSaved = True
                     If bIsLog Then
                         strInitialDirectoryLog = Path.GetDirectoryName(dlgSave.FileName)
                     Else
@@ -515,6 +517,8 @@ Public Class ucrScript
                 TabControl.SelectedTab.Text = System.IO.Path.GetFileName(dlgLoad.FileName)
                 strInitialDirectory = Path.GetDirectoryName(dlgLoad.FileName)
                 bIsTextChanged = False
+                frmMain.clsRecentItems.addToMenu(Replace(Path.Combine(Path.GetFullPath(FileIO.SpecialDirectories.MyDocuments), System.IO.Path.GetFileName(dlgLoad.FileName)), "\", "/"))
+                frmMain.bDataSaved = True
             Catch
                 MsgBox("Could not load the script from file." & Environment.NewLine &
                        "The file may be in use by another program or you may not have access to read from the specified location.",