QML-UI: make Log page scrollable

I noticed when sending a bunch of debug output to the log that it didn't scroll
and that seemed wrong.

Signed-off-by: Dirk Hohndel <dirk@hohndel.org>

1 files changed, 31 insertions, 13 deletions

diff --git a/qt-mobile/qml/Log.qml b/qt-mobile/qml/Log.qml
index 5fff8db8d..b20df215c 100644
--- a/qt-mobile/qml/Log.qml
+++ b/qt-mobile/qml/Log.qml
@@ -6,25 +6,43 @@ import QtQuick.Dialogs 1.2
 import QtQuick.Layouts 1.1
 import QtQuick.Window 2.2
 import org.subsurfacedivelog.mobile 1.0
+import org.kde.plasma.mobilecomponents 0.2 as MobileComponents
 
-Item {
+MobileComponents.Page {
 	id: logWindow
 	width: parent.width
-	height: parent.height
 	objectName: "Log"
+	flickable: logFlick
+	ScrollView {
+		anchors.fill: parent
+		Flickable {
+			id: logFlick
+			anchors.fill: parent
+			contentHeight: logContent.height
+			clip: true
+			Item {
+				id: logContent
+				width: logFlick.width
+				height: childrenRect.height + MobileComponents.Units.smallSpacing * 2
 
-	ColumnLayout {
-		width: parent.width
-		height: parent.height
-		spacing: 8
+				ColumnLayout {
+					anchors {
+						left: parent.left
+						right: parent.right
+						top: parent.top
+						margins: MobileComponents.Units.smallSpacing
+					}
+					spacing: MobileComponents.Units.smallSpacing
 
-		Rectangle {
-			Layout.fillHeight: true
-			Layout.fillWidth: true
-			Text {
-				anchors.fill: parent
-				wrapMode: Text.WrapAnywhere
-				text: manager.logText
+					Text {
+						wrapMode: Text.WrapAnywhere
+						text: manager.logText
+					}
+					Item {
+						height: MobileComponents.Units.gridUnit * 3
+						width: height
+					}
+				}
 			}
 		}
 	}