[sawfish] edge.ations: - renamed edges-activate to activate-edges (consistency) - changed default value for *-

[Christopher Bratusek <chrisb src gnome org>]

commit 6d73e252014d98389c1df24aa0f8de7006613a6d
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sun Jan 30 12:21:51 2011 +0100

    edge.ations:
    - renamed edges-activate to activate-edges (consistency)
    - changed default value for *-move-action to none (rather than none/hot-spot, as hot-spot is not being called while moving a window)

 lisp/sawfish/wm/edge/actions.jl |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/actions.jl b/lisp/sawfish/wm/edge/actions.jl
index 3a25509..991d97b 100644
--- a/lisp/sawfish/wm/edge/actions.jl
+++ b/lisp/sawfish/wm/edge/actions.jl
@@ -20,7 +20,7 @@
 
 (define-structure sawfish.wm.edge.actions
 
-    (export edges-activate)
+    (export activate-edges)
 
     (open rep
 	  rep.system
@@ -39,20 +39,20 @@
     :group edge-actions
     :type (choice none/hot-spot viewport-drag flip-workspace flip-viewport))
 
-  (defcustom left-right-edge-move-action 'none/hot-spot
+  (defcustom left-right-edge-move-action 'none
     "Action for the left and right screen-edge while moving a window."
     :group edge-actions
-    :type  (choice none/hot-spot viewport-drag flip-workspace flip-viewport))
+    :type  (choice none viewport-drag flip-workspace flip-viewport))
 
   (defcustom top-bottom-edge-action 'none/hot-spot
     "Action for the top and bottom screen-edge."
     :group edge-actions
     :type (choice none/hot-spot viewport-drag flip-workspace flip-viewport))
 
-  (defcustom top-bottom-edge-move-action 'none/hot-spot
+  (defcustom top-bottom-edge-move-action 'none
     "Action for the top and bottom screen-edge while moving."
     :group edge-actions
-    :type  (choice none/hot-spot viewport-drag flip-workspace flip-viewport))
+    :type  (choice none viewport-drag flip-workspace flip-viewport))
 
   (define (edge-action-call func edge)
     (case func
@@ -87,7 +87,7 @@
 		 (eq edge 'bottom))
 	     (edge-action-call top-bottom-edge-move-action edge)))))
 
-  (define (edges-activate init)
+  (define (activate-edges init)
     (if init
 	(progn
 	  (activate-flippers t)