sawfish r4286 - in branches/sawfish-experimental: . lisp/sawfish/wm lisp/sawfish/wm/ext lisp/sawfish/wm/util

[jkozicki svn gnome org]

Author: jkozicki
Date: Wed Sep 17 16:18:49 2008
New Revision: 4286
URL: http://svn.gnome.org/viewvc/sawfish?rev=4286&view=rev

Log:
Re-expose edge-flip-delay by Christopher Bratusek. Brings back edge-flip-delay into sawfish-ui.



Modified:
   branches/sawfish-experimental/ChangeLog
   branches/sawfish-experimental/lisp/sawfish/wm/defaults.jl
   branches/sawfish-experimental/lisp/sawfish/wm/ext/edge-flip.jl
   branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl

Modified: branches/sawfish-experimental/lisp/sawfish/wm/defaults.jl
==============================================================================
--- branches/sawfish-experimental/lisp/sawfish/wm/defaults.jl	(original)
+++ branches/sawfish-experimental/lisp/sawfish/wm/defaults.jl	Wed Sep 17 16:18:49 2008
@@ -40,3 +40,6 @@
 
 ;; save errors to aid debugging
 (require 'sawfish.wm.ext.error-handler)
+
+;; load edge-fliping support
+(require 'sawfish.wm.ext.edge-flip)

Modified: branches/sawfish-experimental/lisp/sawfish/wm/ext/edge-flip.jl
==============================================================================
--- branches/sawfish-experimental/lisp/sawfish/wm/ext/edge-flip.jl	(original)
+++ branches/sawfish-experimental/lisp/sawfish/wm/ext/edge-flip.jl	Wed Sep 17 16:18:49 2008
@@ -66,8 +66,12 @@
     :group (workspace edge-flip)
     :after-set (lambda () (edge-flip-enable)))
 
-  (defvar edge-flip-delay 250
-    "Milliseconds to delay before edge flipping.")
+  (defcustom edge-flip-delay 250
+    "Milliseconds to delay before edge flipping."
+    :type number
+    :depends edge-flip-enabled
+    :group (workspace edge-flip)
+    :after-set (lambda () (edge-flip-enable)))
 
   (define ef-current-edge nil)
   (define ef-timer nil)

Modified: branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl
==============================================================================
--- branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl	(original)
+++ branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl	Wed Sep 17 16:18:49 2008
@@ -116,7 +116,7 @@
 	  move-resize-inhibit-configure move-snap-edges
 	  raise-windows-when-unshaded persistent-group-ids
 	  delete-workspaces-when-empty transients-on-parents-workspace
-	  edge-flip-delay audio-for-ignored-windows
+         audio-for-ignored-windows
 	  size-window-def-increment slide-window-increment
 	  default-bevel-percent sp-padding nokogiri-user-level
 	  nokogiri-buttons workspace-boundary-mode