From 59ed06cca3628f624d6abcce36f00f4d961c28c6 Mon Sep 17 00:00:00 2001
From: Markus Quaritsch <markus.quaritsch@tugraz.at>
Date: Tue, 26 Jul 2016 08:22:46 +0200
Subject: [PATCH] making certain parts of vecto 2.2 public to allow for testing
---
VECTO/GUI/GUI_Subs.vb | 2 +-
VECTO/Input Files/cGBX.vb | 2 +-
VECTO/VECTO_Global.vb | 2 +-
VECTO/cVSUM.vb | 2 +-
4 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/VECTO/GUI/GUI_Subs.vb b/VECTO/GUI/GUI_Subs.vb
index 3969a4e064..7cbb084e96 100644
--- a/VECTO/GUI/GUI_Subs.vb
+++ b/VECTO/GUI/GUI_Subs.vb
@@ -13,7 +13,7 @@
''' Methods for GUI interaction
''' </summary>
''' <remarks></remarks>
-Module GUI_Subs
+Public Module GUI_Subs
Public test As Integer = 0
diff --git a/VECTO/Input Files/cGBX.vb b/VECTO/Input Files/cGBX.vb
index e957d29b88..89ee1ab780 100644
--- a/VECTO/Input Files/cGBX.vb
+++ b/VECTO/Input Files/cGBX.vb
@@ -649,7 +649,7 @@ Public Class cGBX
If ErrMin > DEV.TCiterPrec AndAlso iOptPassed > -1 AndAlso nuStep > 0.00001 Then
nuMin = nuList(iOptPassed - 1)
nuMax = nuList(iOptPassed)
- nuStep = Math.Max((nuMax - nuMin) / 10, 0.00001)
+ nuStep = Math.Max((nuMax - nuMin) / 10.0, 0.00001)
Else
Exit Do
End If
diff --git a/VECTO/VECTO_Global.vb b/VECTO/VECTO_Global.vb
index 0115a892e9..da0443713b 100644
--- a/VECTO/VECTO_Global.vb
+++ b/VECTO/VECTO_Global.vb
@@ -14,7 +14,7 @@ Imports System.Text
Imports TUGraz.VectoCommon.Models
Imports vectolic
-Module VECTO_Global
+Public Module VECTO_Global
Public Const VECTOvers As String = "2.2"
Public COREvers As String = "NOT FOUND"
diff --git a/VECTO/cVSUM.vb b/VECTO/cVSUM.vb
index b7b73471bb..ad38671461 100644
--- a/VECTO/cVSUM.vb
+++ b/VECTO/cVSUM.vb
@@ -10,7 +10,7 @@
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports System.Collections.Generic
-Class cVSUM
+Public Class cVSUM
Private Const FormatVersion As Short = 1
--
GitLab