sawfish r4290 - in branches/sawfish-experimental: . lisp/sawfish/wm

[jkozicki svn gnome org]

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

Log:
Expose warp-pointer by Christopher Bratusek. Add a way to setup the warping functions from withing the UI.



Modified:
   branches/sawfish-experimental/ChangeLog
   branches/sawfish-experimental/lisp/sawfish/wm/windows.jl

Modified: branches/sawfish-experimental/lisp/sawfish/wm/windows.jl
==============================================================================
--- branches/sawfish-experimental/lisp/sawfish/wm/windows.jl	(original)
+++ branches/sawfish-experimental/lisp/sawfish/wm/windows.jl	Wed Sep 17 16:40:04 2008
@@ -70,12 +70,17 @@
   (defvar ignore-window-input-hint nil
     "Give focus to windows even when they haven't asked for it.")
 
-  (defvar warp-to-window-offset (cons -1 -1)
-    "Offset (%) from window edges when warping pointer. A negative number
-means outside the left window edge.")
+  (defgroup warp "Warping" :group misc)
 
-  (defvar warp-to-window-enabled nil
-    "When false, disable warping the cursor to windows.")
+  (defcustom warp-to-window-offset (cons -1 -1)
+    "Offset (%) from window edges when warping pointer."
+    :type (pair (number 1) (number 1))
+    :group (misc warp))
+
+  (defcustom warp-to-window-enabled nil
+    "When false, disable warping the cursor to windows."
+    :type boolean
+    :group (misc warp))
  
   (defvar dont-avoid-ignored t
     "When non-nil, ignored windows aren't avoided by default.")