sawfish r4314 - in trunk: . lisp/sawfish/wm/commands man

[chrisb svn gnome org]

Author: chrisb
Date: Wed Dec 17 18:37:22 2008
New Revision: 4314
URL: http://svn.gnome.org/viewvc/sawfish?rev=4314&view=rev

Log:
added the "before-slide-hook" and corresponding docs


Modified:
   trunk/ChangeLog
   trunk/lisp/sawfish/wm/commands/slide-window.jl
   trunk/man/news.texi
   trunk/man/sawmill.texi

Modified: trunk/lisp/sawfish/wm/commands/slide-window.jl
==============================================================================
--- trunk/lisp/sawfish/wm/commands/slide-window.jl	(original)
+++ trunk/lisp/sawfish/wm/commands/slide-window.jl	Wed Dec 17 18:37:22 2008
@@ -40,7 +40,11 @@
   (defvar slide-window-increment 16
     "Number of pixels to move window in `slide-' commands.")
 
+  (defvar before-slide-hook '()
+    "Window hook called before a window is moved with the keyboard.")
+
   (define (slide-window w right down)
+    (call-window-hook 'before-slide-hook w)
     (unless (window-get w 'fixed-position)
       (let ((coords (window-position w)))
 	(move-window-to w (+ (car coords) right) (+ (cdr coords) down)))))

Modified: trunk/man/news.texi
==============================================================================
--- trunk/man/news.texi	(original)
+++ trunk/man/news.texi	Wed Dec 17 18:37:22 2008
@@ -40,6 +40,8 @@
 @item Added Animated Viewport Scrolling by Fernando Carmona Varo
 
 @item Also expose the "Stagger" and "Off-Center" placement-modes
+
+ item Add a new hook: "before-slide-hook" by Andrea Vettorello
 @end itemize
 
 @item Bugfixes:

Modified: trunk/man/sawmill.texi
==============================================================================
--- trunk/man/sawmill.texi	(original)
+++ trunk/man/sawmill.texi	Wed Dec 17 18:37:22 2008
@@ -4,9 +4,9 @@
 @footnotestyle end
 
 @set EDITION 0.13
- set VERSION 1.3.4
- set UPDATED 18 Nov 2008
- set UPDATE-MONTH Nov 2008
+ set VERSION 1.3.5
+ set UPDATED 16 Dec 2008
+ set UPDATE-MONTH Dec 2008
 
 @ifinfo
 @direntry
@@ -5939,6 +5939,10 @@
 @code{right}, @code{left}, @code{bottom} and @code{top} for resizing.
 @end defvr
 
+ defvr {Window Hook} before-slide-hook
+Called before a window move when using key binding.
+ end defvr
+
 
 @defvr {Hook} after-restacking-hook
 Called after any window restacking operation, including (but possibly