1 files changed, 51 insertions, 0 deletions

diff --git a/framework/qml/ListView.qml b/framework/qml/ListView.qml
new file mode 100644
index 00000000..7fbb5721
--- /dev/null
+++ b/framework/qml/ListView.qml
@@ -0,0 +1,51 @@
+/*
+ *  Copyright (C) 2016 Michael Bohlender, <michael.bohlender@kdemail.net>
+ *  Copyright (C) 2017 Christian Mollekopf, <mollekopf@kolabsystems.com>
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License along
+ *  with this program; if not, write to the Free Software Foundation, Inc.,
+ *  51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+ */
+
+import QtQuick 2.7
+import QtQuick.Controls 2
+
+ListView {
+    id: root
+    property var focusProxy: root
+
+    /*
+     * The MouseArea + interactive: false + maximumFlickVelocity are required
+     * to fix scrolling for desktop systems where we don't want flicking behaviour.
+     *
+     * See also:
+     * ScrollView.qml in qtquickcontrols
+     * qquickwheelarea.cpp in qtquickcontrols
+     */
+    MouseArea {
+        anchors.fill: root
+        propagateComposedEvents: true
+
+        onWheel: {
+            //Some trackpads (mine) emit 0 events in between that we can safely ignore.
+            if (wheel.angleDelta.y) {
+                listView.flick(0, wheel.angleDelta.y * 40)
+            }
+        }
+    }
+    interactive: false
+    maximumFlickVelocity: 100000
+
+    boundsBehavior: Flickable.StopAtBounds
+}
+