[sawfish] updated edge.util for previous commit



commit 5983fc58db0be92fea9751a736a4350d8bb05b95
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sun Jan 30 11:37:37 2011 +0100

    updated edge.util for previous commit

 lisp/sawfish/wm/edge/util.jl |   12 +++++-------
 1 files changed, 5 insertions(+), 7 deletions(-)
---
diff --git a/lisp/sawfish/wm/edge/util.jl b/lisp/sawfish/wm/edge/util.jl
index 462f435..1cb9f2f 100644
--- a/lisp/sawfish/wm/edge/util.jl
+++ b/lisp/sawfish/wm/edge/util.jl
@@ -39,15 +39,13 @@
     (if enable
         (progn
 	  (recreate-flippers)
-	  (unless (in-hook-p 'after-restacking-hook flippers-after-restacking)
-	    (add-hook 'after-restacking-hook flippers-after-restacking))
+	  (unless (in-hook-p 'after-restacking-hook raise-flippers)
+	    (add-hook 'after-restacking-hook raise-flippers))
 	  (unless (in-hook-p 'randr-change-notify-hook recreate-flippers)
 	    (add-hook 'randr-change-notify-hook recreate-flippers)))
-      (disable-flippers)
-      (if (in-hook-p 'after-restacking-hook flippers-after-restacking)
-	  (remove-hook 'after-restacking-hook flippers-after-restacking))
-      (if (in-hook-p 'randr-change-notify-hook recreate-flippers)
-	  (remove-hook 'randr-change-notify-hook recreate-flippers))))
+      (destroy-flippers)
+      (remove-hook 'after-restacking-hook raise-flippers)
+      (remove-hook 'randr-change-notify-hook recreate-flippers)))
 
   (defcustom hot-spots-area 50
     "Lenght in px (in both x and y direction) wich is used as hot-spots-area."



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]