Updating my main branch

instat/dlgBoxplotMethod.vb

@@ -13,15 +13,69 @@
 '
 ' You should have received a copy of the GNU General Public License k
 ' along with this program.  If not, see <http://www.gnu.org/licenses/>.
-Imports instat.Translations
-Public Class dlgBoxplotMethod
-    Private Sub dlgBoxplotMethod_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        autoTranslate(Me)
-        ucrBase.clsRsyntax.SetFunction("climate_obj$boxplot")
-        ucrBase.clsRsyntax.iCallType = 0
-    End Sub
 
 
+Imports instat.Translations
+    Public Class dlgBoxplotMethod
+        Private Sub ucrBase_Load(sender As Object, e As EventArgs) Handles ucrBase.Load
+            autoTranslate(Me)
+            ucrBase.clsRsyntax.SetFunction("climate_obj$boxplot")
+            ucrBase.clsRsyntax.iCallType = 0
+        End Sub
 
+        Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles chkConvert.CheckedChanged
+            If chkConvert.Checked Then
+                ucrBase.clsRsyntax.AddParameter("convert", chkConvert.Checked.ToString().ToUpper())
+            End If
+        End Sub
 
-End Class
+
+        Private Sub txtTitle_TextChanged(sender As Object, e As EventArgs) Handles txtTitle.TextChanged
+            ucrBase.clsRsyntax.AddParameter("title", Chr(34) & txtTitle.Text.ToString() & Chr(34))
+
+        End Sub
+
+        Private Sub chkHorizontal_CheckedChanged(sender As Object, e As EventArgs) Handles chkHorizontal.CheckedChanged
+            If chkHorizontal.Checked Then
+                ucrBase.clsRsyntax.AddParameter("horizontal", chkHorizontal.Checked.ToString().ToUpper())
+            End If
+
+        End Sub
+
+        Private Sub nudWhisklty_ValueChanged(sender As Object, e As EventArgs) Handles nudWhisklty.ValueChanged
+            ucrBase.clsRsyntax.AddParameter("whisklty", nudWhisklty.Value.ToString())
+
+        End Sub
+
+        Private Sub txtFillColour_TextChanged(sender As Object, e As EventArgs) Handles txtFillColour.TextChanged
+            ucrBase.clsRsyntax.AddParameter("fill_col", Chr(34) & txtFillColour.Text.ToString() & Chr(34))
+
+        End Sub
+
+        Private Sub txtYLabel_TextChanged(sender As Object, e As EventArgs) Handles txtYLabel.TextChanged
+            ucrBase.clsRsyntax.AddParameter("ylabel", Chr(34) & txtYLabel.Text.ToString() & Chr(34))
+
+        End Sub
+
+        Private Sub txtXLabel_TextChanged(sender As Object, e As EventArgs) Handles txtXLabel.TextChanged
+            ucrBase.clsRsyntax.AddParameter("xlabel", Chr(34) & txtXLabel.Text.ToString() & Chr(34))
+        End Sub
+
+        Private Sub txtFactor_TextChanged(sender As Object, e As EventArgs) Handles txtFactor.TextChanged
+            ucrBase.clsRsyntax.AddParameter("factor", Chr(34) & txtFactor.Text.ToString() & Chr(34))
+        End Sub
+
+        Private Sub txtInterestedVariable_TextChanged(sender As Object, e As EventArgs) Handles txtInterestedVariable.TextChanged
+            ucrBase.clsRsyntax.AddParameter("interested_var", Chr(34) & txtInterestedVariable.Text.ToString() & Chr(34))
+        End Sub
+
+        Private Sub txtDataPeriodLabel_TextChanged(sender As Object, e As EventArgs) Handles txtDataPeriodLabel.TextChanged
+            ucrBase.clsRsyntax.AddParameter("data_period_label", Chr(34) & txtDataPeriodLabel.Text.ToString() & Chr(34))
+
+        End Sub
+
+
+
+
+
+    End Class