From 31a23acb1a43a274f4889bf47ee8606c815834e2 Mon Sep 17 00:00:00 2001
From: vladest <vladstelmahovsky@gmail.com>
Date: Wed, 6 Sep 2017 23:04:58 +0200
Subject: [PATCH] Add flickable on mouse wheel to web pages

---
 interface/resources/qml/controls/FlickableWebViewCore.qml | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/interface/resources/qml/controls/FlickableWebViewCore.qml b/interface/resources/qml/controls/FlickableWebViewCore.qml
index 0460b5b16a..13a435c4e5 100644
--- a/interface/resources/qml/controls/FlickableWebViewCore.qml
+++ b/interface/resources/qml/controls/FlickableWebViewCore.qml
@@ -19,6 +19,7 @@ Flickable {
 
     signal newViewRequestedCallback(var request)
     signal loadingChangedCallback(var loadRequest)
+    pressDelay: 300
 
     boundsBehavior: Flickable.StopAtBounds
 
@@ -167,4 +168,11 @@ Flickable {
         playing: visible
         z: 10000
     }
+
+    MouseArea {
+        anchors.fill: parent
+        onWheel: {
+            flick.flick(0, wheel.angleDelta.y*10)
+        }
+    }
 }