changes

IDEMSInternational · Jun 4, 2024 · ac5af6c · ac5af6c
1 parent 4c7d606
commit ac5af6c
Showing 1 changed file with 6 additions and 11 deletions.
diff --git a/instat/dlgBoxPlot.vb b/instat/dlgBoxPlot.vb
@@ -811,11 +811,13 @@ Public Class dlgBoxplot
         End If
         EnableDisableWidth()
         HideShowWidth()
+        'ucrInputWidth.Visible = ucrChkWidth.Checked
     End Sub
 
     Private Sub ucrChkWidth_ControlValueChanged(ucrChangedControl As ucrCore) Handles ucrChkWidth.ControlValueChanged
         EnableDisableWidth()
         HideShowWidth()
+        'ucrInputWidth.Visible = ucrChkWidth.Checked
     End Sub
 
     Private Sub EnableDisableWidth()
@@ -839,17 +841,10 @@ Public Class dlgBoxplot
     Private Sub HideShowWidth()
         ucrChkWidth.Visible = False
         ucrInputWidth.Visible = False
-        If rdoBoxplotTufte.Checked OrElse rdoViolin.Checked Then
-            If ucrByFactorsReceiver.strCurrDataType = "numeric" Then
-                ucrChkWidth.Visible = True
-                ucrInputWidth.Visible = ucrChkWidth.Checked
-            Else
-                ucrChkWidth.Visible = False
-                ucrInputWidth.Visible = False
-            End If
-        Else
-            ucrChkWidth.Visible = False
-            ucrInputWidth.Visible = False
+
+        If (rdoBoxplotTufte.Checked OrElse rdoViolin.Checked) AndAlso ucrByFactorsReceiver.strCurrDataType = "numeric" Then
+            ucrChkWidth.Visible = True
+            ucrInputWidth.Visible = ucrChkWidth.Checked
         End If
     End Sub