[gnome-shell/wip/paging-release2: 19/22] appDisplay: Add pan action to FolderView

[Carlos Soriano <csoriano src gnome org>]

commit dd26a12d1eee8a1b75e76efee815792533daef5f
Author: Carlos Soriano <carlos soriano89 gmail com>
Date:   Fri Aug 23 20:49:27 2013 +0200

    appDisplay: Add pan action to FolderView
    
    Since we have now a ScrollView in the FolderView,
    add support for the pan action
    
    https://bugzilla.gnome.org/show_bug.cgi?id=706081
    
    Fix special-case?

 js/ui/appDisplay.js |   11 +++++++++++
 1 files changed, 11 insertions(+), 0 deletions(-)
---
diff --git a/js/ui/appDisplay.js b/js/ui/appDisplay.js
index 62d907d..ae13555 100644
--- a/js/ui/appDisplay.js
+++ b/js/ui/appDisplay.js
@@ -916,6 +916,10 @@ const FolderView = new Lang.Class({
         let scrollableContainer = new St.BoxLayout({ vertical: true, reactive: true });
         scrollableContainer.add_actor(this._grid.actor);
         this.actor.add_actor(scrollableContainer);
+
+        let action = new Clutter.PanAction({ interpolate: true });
+        action.connect('pan', Lang.bind(this, this._onPan));
+        this.actor.add_action(action);
     },
 
     _getItemId: function(item) {
@@ -953,6 +957,13 @@ const FolderView = new Lang.Class({
         return icon;
     },
 
+    _onPan: function(action) {
+        let [dist, dx, dy] = action.get_motion_delta(0);
+        let adjustment = this.actor.vscroll.adjustment;
+        adjustment.value -= (dy / this.actor.height) * adjustment.page_size;
+        return false;
+    },
+
     adaptToSize: function(width, height) {
         this._parentAvailableWidth = width;
         this._parentAvailableHeight = height;