Commit: 62e1c65b8ce6669445a36e658fac87a15b61ec62 - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• Revision: 62e1c65b8ce6669445a36e658fac87a15b61ec62 (tree)
• Time: 2008-09-18 01:40:04
• Author: Janek Kozicki <jkozicki@src....>
• Commiter: Janek Kozicki

Log Message

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

svn path=/branches/sawfish-experimental/; revision=4290

Change Summary

• modified: ChangeLog
• modified: lisp/sawfish/wm/windows.jl

Incremental Difference

--- a/ChangeLog
+++ b/ChangeLog
@@ -46,6 +46,9 @@
 	* lisp/sawfish/wm/commands/x-cycle.jl: Warp-if-necessary when cycling
 	by Christopher Bratusek. Add an option allowing to warp the pointer to
 	windows while cycling.
+	* lisp/sawfish/wm/windows.jl: Expose warp-pointer by Christopher
+	Bratusek. Add a way to setup the warping functions from withing the
+	UI.
 
 2008-08-29  Janek Kozicki <[e-mail]>
 	* lisp/sawfish/wm/commands/grow-pack.jl

--- a/lisp/sawfish/wm/windows.jl
+++ b/lisp/sawfish/wm/windows.jl
@@ -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.")