QML UI: use a scrollable page for StartPage

Fixes scrolling of the cloud credentials and simplifies code

Signed-off-by: Marco Martin <notmart@gmail.com>
Signed-off-by: Dirk Hohndel <dirk@hohndel.org>

1 files changed, 31 insertions, 29 deletions

diff --git a/mobile-widgets/qml/StartPage.qml b/mobile-widgets/qml/StartPage.qml
index 26ebb0897..98d57be84 100644
--- a/mobile-widgets/qml/StartPage.qml
+++ b/mobile-widgets/qml/StartPage.qml
@@ -3,38 +3,40 @@ import QtQuick.Layouts 1.1
 import org.kde.kirigami 2.0 as Kirigami
 import org.subsurfacedivelog.mobile 1.0
 
-ColumnLayout {
+
+Kirigami.ScrollablePage {
 	id: startpage
-	width: subsurfaceTheme.columnWidth
 
 	function saveCredentials() { cloudCredentials.saveCredentials() }
 
-	Kirigami.Label {
-		id: explanationText
-		Layout.fillWidth: true
-		Layout.margins: Kirigami.Units.gridUnit
-		Layout.topMargin: Kirigami.Units.gridUnit * 3
-		text: qsTr("To use Subsurface-mobile with Subsurface cloud storage, please enter your cloud credentials.\n") +
-		      qsTr("If this is the first time you use Subsurface cloud storage, enter a valid email (all lower case) " +
-			   "and a password of your choice (letters and numbers). " +
-			   "The server will send a PIN to the email address provided that you will have to enter here.\n\n") +
-		      qsTr("To use Subsurface-mobile only with local data on this device, tap " +
-			   "on the no cloud icon below.")
-		wrapMode: Text.WordWrap
-	}
-	Kirigami.Label {
-		id: messageArea
-		Layout.fillWidth: true
-		Layout.margins: Kirigami.Units.gridUnit
-		Layout.topMargin: 0
-		text: manager.startPageText
-		wrapMode: Text.WordWrap
-	}
-	CloudCredentials {
-		id: cloudCredentials
-		Layout.fillWidth: true
-		Layout.margins: Kirigami.Units.gridUnit
-		Layout.topMargin: 0
-		property int headingLevel: 3
+	ColumnLayout {
+		Kirigami.Label {
+			id: explanationText
+			Layout.fillWidth: true
+			Layout.margins: Kirigami.Units.gridUnit
+			Layout.topMargin: Kirigami.Units.gridUnit * 3
+			text: qsTr("To use Subsurface-mobile with Subsurface cloud storage, please enter your cloud credentials.\n") +
+				qsTr("If this is the first time you use Subsurface cloud storage, enter a valid email (all lower case) " +
+				"and a password of your choice (letters and numbers). " +
+				"The server will send a PIN to the email address provided that you will have to enter here.\n\n") +
+				qsTr("To use Subsurface-mobile only with local data on this device, tap " +
+				"on the no cloud icon below.")
+			wrapMode: Text.WordWrap
+		}
+		Kirigami.Label {
+			id: messageArea
+			Layout.fillWidth: true
+			Layout.margins: Kirigami.Units.gridUnit
+			Layout.topMargin: 0
+			text: manager.startPageText
+			wrapMode: Text.WordWrap
+		}
+		CloudCredentials {
+			id: cloudCredentials
+			Layout.fillWidth: true
+			Layout.margins: Kirigami.Units.gridUnit
+			Layout.topMargin: 0
+			property int headingLevel: 3
+		}
 	}
 }