Add scrollview to experiments description view for larger fonts

Author: ps2

Loop/Views/SettingsView+algorithmExperimentsSection.swift

@@ -44,34 +44,36 @@ public struct ExperimentsSettingsView: View {
     var automaticDosingStrategy: AutomaticDosingStrategy
 
     public var body: some View {
-        VStack(alignment: .center, spacing: 12) {
-            Text(NSLocalizedString("Algorithm Experiments", comment: "Navigation title for algorithms experiments screen"))
-                .font(.headline)
-            VStack {
-                Text("⚠️").font(.largeTitle)
-                Text("Caution")
+        ScrollView {
+            VStack(alignment: .center, spacing: 12) {
+                Text(NSLocalizedString("Algorithm Experiments", comment: "Navigation title for algorithms experiments screen"))
+                    .font(.headline)
+                VStack {
+                    Text("⚠️").font(.largeTitle)
+                    Text("Caution")
+                }
+                Divider()
+                VStack(alignment: .leading, spacing: 12) {
+                    Text(NSLocalizedString("Algorithm Experiments are optional modifications to the Loop Algorithm. These modifications are less tested than the standard Loop algorithm, so please use carefully.", comment: "Algorithm Experiments description."))
+                    Text(NSLocalizedString("In future versions of Loop these experiments may change, end up as standard parts of the Loop Algorithm, or be removed from Loop entirely. Please follow along in the Loop Zulip chat to stay informed of possible changes to these features.", comment: "Algorithm Experiments description second paragraph."))
+                }
+                .foregroundColor(.secondary)
+                
+                Divider()
+                NavigationLink(destination: GlucoseBasedApplicationFactorSelectionView(isGlucoseBasedApplicationFactorEnabled: $isGlucoseBasedApplicationFactorEnabled, automaticDosingStrategy: automaticDosingStrategy)) {
+                    ExperimentRow(
+                        name: NSLocalizedString("Glucose Based Partial Application", comment: "Title of glucose based partial application experiment"),
+                        enabled: isGlucoseBasedApplicationFactorEnabled && automaticDosingStrategy == .automaticBolus)
+                }
+                NavigationLink(destination: IntegralRetrospectiveCorrectionSelectionView(isIntegralRetrospectiveCorrectionEnabled: $isIntegralRetrospectiveCorrectionEnabled)) {
+                    ExperimentRow(
+                        name: NSLocalizedString("Integral Retrospective Correction", comment: "Title of integral retrospective correction experiment"),
+                        enabled: isIntegralRetrospectiveCorrectionEnabled)
+                }
+                Spacer()
             }
-            Divider()
-            VStack(alignment: .leading, spacing: 12) {
-                Text(NSLocalizedString("Algorithm Experiments are optional modifications to the Loop Algorithm. These modifications are less tested than the standard Loop algorithm, so please use carefully.", comment: "Algorithm Experiments description."))
-                Text(NSLocalizedString("In future versions of Loop these experiments may change, end up as standard parts of the Loop Algorithm, or be removed from Loop entirely. Please follow along in the Loop Zulip chat to stay informed of possible changes to these features.", comment: "Algorithm Experiments description second paragraph."))
-            }
-            .foregroundColor(.secondary)
-
-            Divider()
-            NavigationLink(destination: GlucoseBasedApplicationFactorSelectionView(isGlucoseBasedApplicationFactorEnabled: $isGlucoseBasedApplicationFactorEnabled, automaticDosingStrategy: automaticDosingStrategy)) {
-                ExperimentRow(
-                    name: NSLocalizedString("Glucose Based Partial Application", comment: "Title of glucose based partial application experiment"),
-                    enabled: isGlucoseBasedApplicationFactorEnabled && automaticDosingStrategy == .automaticBolus)
-            }
-            NavigationLink(destination: IntegralRetrospectiveCorrectionSelectionView(isIntegralRetrospectiveCorrectionEnabled: $isIntegralRetrospectiveCorrectionEnabled)) {
-                ExperimentRow(
-                    name: NSLocalizedString("Integral Retrospective Correction", comment: "Title of integral retrospective correction experiment"),
-                    enabled: isIntegralRetrospectiveCorrectionEnabled)
-            }
-            Spacer()
+            .padding()
         }
-        .padding()
         .navigationBarTitleDisplayMode(.inline)
     }
 }