Merge pull request #24 from africanmathsinitiative/master

updating my repo

instat/dlgCPTtoTabularData.vb

@@ -15,26 +15,37 @@
 ' along with this program.  If not, see <http://www.gnu.org/licenses/>.
 Imports instat.Translations
 Public Class dlgCPTtoTabularData
-    Private Sub UcrButtons1_Load(sender As Object, e As EventArgs) Handles ucrBase.Load
-        autoTranslate(Me)
-        ucrBase.clsRsyntax.SetFunction("climate_obj$SST_domain()")
-        ucrBase.clsRsyntax.iCallType = 0
-    End Sub
-
+    Public bFirstLoad As Boolean = True
     Private Sub dlgCPTtoTabularData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        autoTranslate(Me)
 
+        If bFirstLoad Then
+            InitialiseDialog()
+            SetDefaults()
+            bFirstLoad = False
+        Else
+            ReopenDialog()
+        End If
 
+        TestOKEnabled()
     End Sub
-
-    Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles nudMinLat.ValueChanged
+    Private Sub InitialiseDialog()
+        ucrBase.clsRsyntax.SetFunction("climate_obj$SST_domain()")
+    End Sub
+    Private Sub SetDefaults()
 
     End Sub
+    Private Sub ReopenDialog()
 
-    Private Sub NumericUpDown4_ValueChanged(sender As Object, e As EventArgs) Handles nudMaxLat.ValueChanged
+    End Sub
+    Private Sub TestOKEnabled()
 
     End Sub
+    Private Sub ucrBase_ClickReset(sender As Object, e As EventArgs) Handles ucrBase.ClickReset
+        SetDefaults()
+        TestOKEnabled()
+    End Sub
+
 
-    Private Sub NumericUpDown3_ValueChanged(sender As Object, e As EventArgs) Handles nudMinLon.ValueChanged
 
-    End Sub
 End Class

instat/dlgChangeFormatDayMonth.vb

@@ -15,11 +15,38 @@
 ' along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 Imports instat.Translations
-    Public Class dlgChangeFormatDayMonth
-    Private Sub UcrButtons1_Load(sender As Object, e As EventArgs) Handles ucrBase.Load
+Public Class dlgChangeFormatDayMonth
+    Public bFirstLoad As Boolean = True
+    Private Sub dlgChangeFormatDayMonth_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         autoTranslate(Me)
+
+
+        If bFirstLoad Then
+            InitialiseDialog()
+            SetDefaults()
+            bFirstLoad = False
+        Else
+            ReopenDialog()
+        End If
+
+        TestOKEnabled()
+    End Sub
+    Private Sub InitialiseDialog()
         ucrBase.clsRsyntax.SetFunction("climate_obj$change_format_day_month()")
-        ucrBase.clsRsyntax.iCallType = 0
+    End Sub
+    Private Sub SetDefaults()
+
+    End Sub
+
+    Private Sub ReopenDialog()
+
+    End Sub
+    Private Sub TestOKEnabled()
+
+    End Sub
+    Private Sub ucrBase_ClickReset(sender As Object, e As EventArgs) Handles ucrBase.ClickReset
+        SetDefaults()
+        TestOKEnabled()
     End Sub
 End Class