From 0d80c0dd6203dc4223a3c131140cc2b232db527d Mon Sep 17 00:00:00 2001
From: Dippold Martin <dippold@ivt.tugraz.at>
Date: Tue, 21 Jul 2015 15:43:22 +0200
Subject: [PATCH] * Update for User Manual and Release notes. Now always the
newest version will be opened
---
CSE/GUI/F_Main.vb | 6 ++++--
CSE/declaration_public.vb | 2 +-
CSE/utils.vb | 3 +--
3 files changed, 6 insertions(+), 5 deletions(-)
diff --git a/CSE/GUI/F_Main.vb b/CSE/GUI/F_Main.vb
index 493d774..e2b2beb 100644
--- a/CSE/GUI/F_Main.vb
+++ b/CSE/GUI/F_Main.vb
@@ -956,7 +956,8 @@ Public Class F_Main
' Menu open the user manual
Private Sub ToolStripMenuItemManu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemManu.Click
- Dim manual_fname As String = joinPaths(MyPath, "Docs", "VECTO_CSE-User Manual_" & AppVers & ".pdf")
+ Dim manual_fname As String = (From fi As IO.FileInfo In (New IO.DirectoryInfo(joinPaths(MyPath, "Docs")).GetFiles("*VECTO_CSE-User Manual*.pdf", IO.SearchOption.TopDirectoryOnly)) Order By fi.LastAccessTime Select fi)(0).FullName
+
Try
System.Diagnostics.Process.Start(manual_fname)
Catch ex As Exception
@@ -966,7 +967,8 @@ Public Class F_Main
' Menu open the release nodes
Private Sub ReleaseNotesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReleaseNotesToolStripMenuItem.Click
- Dim release_fname As String = joinPaths(MyPath, "Docs", "VECTO-CSE_ReleaseNotes_" & AppVers & ".pdf")
+ Dim release_fname As String = (From fi As IO.FileInfo In (New IO.DirectoryInfo(joinPaths(MyPath, "Docs")).GetFiles("*VECTO-CSE_ReleaseNotes*.pdf", IO.SearchOption.TopDirectoryOnly)) Order By fi.LastAccessTime Select fi)(0).FullName
+
Try
System.Diagnostics.Process.Start(release_fname)
Catch ex As Exception
diff --git a/CSE/declaration_public.vb b/CSE/declaration_public.vb
index 7c86c43..af79cd4 100644
--- a/CSE/declaration_public.vb
+++ b/CSE/declaration_public.vb
@@ -13,7 +13,7 @@ Module declaration_public
' Description of the form
Public Const AppName As String = "VECTO_CSE" ' Name of the programm
- Public Const AppVers As String = "2.0.2-beta6" ' Version of the Programm
+ Public Const AppVers As String = "2.0.3-beta6" ' Version of the Programm
Public AppDate As String ' Date of the compilation of the programm
' Control variables
diff --git a/CSE/utils.vb b/CSE/utils.vb
index c38fbc4..bc5145f 100644
--- a/CSE/utils.vb
+++ b/CSE/utils.vb
@@ -151,8 +151,7 @@ Module utils
End Function
#End Region ' File paths'
- ' Function for a linear interpolation
-
+ ' Functions for linear interpolation
#Region "Calculation programms"
' Function for a linear interpolation
--
GitLab