[sawfish/edge-actions] add back the timer to edge-actions: - no delay for viewport-drag - half delay for hot-spots - full d

[Christopher Bratusek <chrisb src gnome org>]

commit e642c0de079f9f1f4859f3996049f8e9a48439fa
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Nov 20 10:22:56 2010 +0100

    add back the timer to edge-actions:
    - no delay for viewport-drag
    - half delay for hot-spots
    - full delay for flipping

 lisp/sawfish/wm/edge/actions.jl |   18 +++++++++++++++---
 1 files changed, 15 insertions(+), 3 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/actions.jl b/lisp/sawfish/wm/edge/actions.jl
index 78e45c8..500430a 100644
--- a/lisp/sawfish/wm/edge/actions.jl
+++ b/lisp/sawfish/wm/edge/actions.jl
@@ -91,13 +91,25 @@ hot-spots are activated in half that time."
   (define (edge-action-call func edge)
     (case func
       ((hot-spot)
-       (hot-spot-activate edge))
+       ;; halve the edge delay for hot-spots
+       (make-timer (lambda ()
+           (hot-spot-activate edge))
+	 (quotient edge-actions-delay 2000)
+	 (mod edge-actions-delay 2000)))
       ((viewport-drag)
+       ;;â??no delay for viewport-drag
        (viewport-drag-activate edge))
+      ;; full delay for flipping
       ((flip-workspace)
-       (edge-flip-activate edge 'workspace))
+       (make-timer (lambda ()
+	   (edge-flip-activate edge 'workspace))
+	 (quotient edge-actions-delay 1000)
+	 (mod edge-actions-delay 1000)))
       ((flip-viewport)
-       (edge-flip-activate edge 'viewport))))
+       (make-timer (lambda ()
+           (edge-flip-activate edge 'viewport))
+	 (quotient edge-actions-delay 1000)
+	 (mod edge-actions-delay 1000)))))
 
   (define (edge-action-init)
     (unless no-enter