OmagCUT 1.6k10 :

- aggiornamenti e migliorie varie.

NumericKeyboardWD.xaml.vb

@@ -3,11 +3,12 @@ Imports EgtUILib
 
 Public Class NumericKeyboardWD
 
-    Dim MainWindowUC As MainWindow = Application.Current.MainWindow
-    Public m_CurrentTxBx As TextBox
-    Public m_CurrentLbl As String = String.Empty
+    Private MainWindowUC As MainWindow = Application.Current.MainWindow
+    Friend m_DoubleResult As Double = 0
+    Friend m_CurrentTxBx As TextBox
+    Friend m_CurrentLbl As String = String.Empty
     Private m_sErrorString As String = String.Empty
-    Dim m_bErrorState As Boolean = False
+    Friend m_bErrorState As Boolean = False
 
     Private Sub NumericKeyboardWD_Initialized(sender As Object, e As EventArgs)
         m_sErrorString = EgtMsg(MSG_NUMERICKEYBOARDWD + 1)
@@ -141,10 +142,9 @@ Public Class NumericKeyboardWD
     End Sub
 
     Private Sub Evaluate()
-        Dim DoubleResult As Double = 0
-        Dim bOk As Boolean = EgtUILib.EgtLuaEvalNumExpr(NumericKeyboardWDTextBox.Text, DoubleResult)
+        Dim bOk As Boolean = EgtUILib.EgtLuaEvalNumExpr(NumericKeyboardWDTextBox.Text, m_DoubleResult)
         If bOk Then
-            NumericKeyboardWDTextBox.Text = DoubleResult.ToString(CultureInfo.InvariantCulture)
+            NumericKeyboardWDTextBox.Text = m_DoubleResult.ToString(CultureInfo.InvariantCulture)
             If m_bErrorState Then
                 m_bErrorState = False
                 NumericKeyboardWDTitle.Foreground = Brushes.Black