[sawfish/edge-actions] renamed infinite-desktop to viewport-drag

[Christopher Bratusek <chrisb src gnome org>]

commit 4bffe3d44ac6b6163f971783a5f462195e6f77a5
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Thu Nov 4 20:21:36 2010 +0100

    renamed infinite-desktop to viewport-drag

 .../edge/{infinite-desktop.jl => viewport-drag.jl} |   11 +++++++----
 1 files changed, 7 insertions(+), 4 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/infinite-desktop.jl b/lisp/sawfish/wm/edge/viewport-drag.jl
similarity index 91%
rename from lisp/sawfish/wm/edge/infinite-desktop.jl
rename to lisp/sawfish/wm/edge/viewport-drag.jl
index e7133a3..3288c42 100644
--- a/lisp/sawfish/wm/edge/infinite-desktop.jl
+++ b/lisp/sawfish/wm/edge/viewport-drag.jl
@@ -1,6 +1,7 @@
-;; infinite-desktop.jl -- Smooth viewport motion with mouse
+;; viewport-drag.jl -- Smooth viewport motion with mouse
 
 ;; Copyright (C) 2008 David T. McWherter <udmcwher mcs drexel edu>
+;; Copyright (C) 2010 Christopher Roy Bratusek <zanghar freent de>
 
 ;; This file is part of sawfish.
 
@@ -18,9 +19,9 @@
 ;; along with sawfish; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(define-structure sawfish.wm.edge.infinite-desktop
+(define-structure sawfish.wm.edge.viewport-drag
 
-    (export infinite-desktop-activate)
+    (export viewport-drag-activate)
 
     (open rep
           rep.system
@@ -29,6 +30,8 @@
           sawfish.wm.commands.move-cursor
           sawfish.wm.viewport)
 
+  (define-structure-alias viewport-drag sawfish.wm.edge.viewport-drag)
+
   (defcustom viewport-drag-distance 64
     "Amount to drag the viewport when the pointer hits the screen edge."
     :group edge-actions
@@ -89,7 +92,7 @@
       (set-viewport viewport-x-offset (+ viewport-y-offset dist))
       (move-cursor 0 (- (min dist cdist)))))
 
-  (define (infinite-desktop-activate edge)
+  (define (viewport-drag-activate edge)
     "Called when a desktop flipper is triggered to shift the visible desktop."
     (case edge
       ((left) (viewport-drag-left))