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

[Carlos Soriano <csoriano src gnome org>]

commit 646c83f39b07d5d95f3f106b20ea1f3ddb4ba064
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

 js/ui/appDisplay.js |   12 ++++++++++++
 1 files changed, 12 insertions(+), 0 deletions(-)
---
diff --git a/js/ui/appDisplay.js b/js/ui/appDisplay.js
index 5006a20..e4dc137 100644
--- a/js/ui/appDisplay.js
+++ b/js/ui/appDisplay.js
@@ -998,6 +998,11 @@ const FolderView = new Lang.Class({
 
         this.actor = new St.ScrollView({ overlay_scrollbars: true });
         this.actor.set_policy(Gtk.PolicyType.NEVER, Gtk.PolicyType.AUTOMATIC);
+
+        let action = new Clutter.PanAction({ interpolate: true });
+        action.connect('pan', Lang.bind(this, this._onPan));
+        this.actor.add_action(action);
+
         this._box = new St.BoxLayout({ vertical: true, reactive: true });
         this._widget = new St.Widget({ layout_manager: new Clutter.BinLayout() });
         this._widget.add_child(this._grid.actor);
@@ -1042,6 +1047,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;