sawfish r4312 - in trunk: . lisp/sawfish/wm lisp/sawfish/wm/placement

[chrisb svn gnome org]

Author: chrisb
Date: Tue Dec 16 20:02:54 2008
New Revision: 4312
URL: http://svn.gnome.org/viewvc/sawfish?rev=4312&view=rev

Log:
Re-expose the Stagger and Off-Center Placement Modes in Sawfish-ui [Andrea Vettorello] 


Modified:
   trunk/ChangeLog
   trunk/lisp/sawfish/wm/autoload.jl
   trunk/lisp/sawfish/wm/placement/off-center.jl
   trunk/lisp/sawfish/wm/placement/stagger.jl

Modified: trunk/lisp/sawfish/wm/autoload.jl
==============================================================================
--- trunk/lisp/sawfish/wm/autoload.jl	(original)
+++ trunk/lisp/sawfish/wm/autoload.jl	Tue Dec 16 20:02:54 2008
@@ -150,8 +150,8 @@
 (autoload-command (quote describe-key-to-screen) (quote sawfish.wm.util.keymap))
 (autoload-command (quote quote-event) (quote sawfish.wm.util.keymap))
 (autoload-placement-mode 'top-left 'sawfish.wm.placement.top-left #:for-normal t)
-(autoload-placement-mode 'stagger 'sawfish.wm.placement.stagger)
-(autoload-placement-mode 'off-center 'sawfish.wm.placement.off-center)
+(autoload-placement-mode 'stagger 'sawfish.wm.placement.stagger #:for-normal t)
+(autoload-placement-mode 'off-center 'sawfish.wm.placement.off-center #:for-normal t)
 (autoload-command (quote set-viewport-linear) (quote "viewport-linear") #:type (backquote (and (labelled (backquote-unquote (_ "Index:")) (number 0)))) #:class 'default)
 (autoload-command (quote set-window-viewport-linear) (quote "viewport-linear") #:type (backquote (and (labelled (backquote-unquote (_ "Index:")) (number 0)))) #:class 'default)
 (autoload-command 'set-viewport-linear:1 'sawfish.wm.commands.viewport-linear #:class 'default)

Modified: trunk/lisp/sawfish/wm/placement/off-center.jl
==============================================================================
--- trunk/lisp/sawfish/wm/placement/off-center.jl	(original)
+++ trunk/lisp/sawfish/wm/placement/off-center.jl	Tue Dec 16 20:02:54 2008
@@ -123,4 +123,4 @@
 	      (loop (1+ index))))))))
 
   ;;###autoload
-  (define-placement-mode 'off-center place-window-off-center))
+  (define-placement-mode 'off-center place-window-off-center #:for-normal t))

Modified: trunk/lisp/sawfish/wm/placement/stagger.jl
==============================================================================
--- trunk/lisp/sawfish/wm/placement/stagger.jl	(original)
+++ trunk/lisp/sawfish/wm/placement/stagger.jl	Tue Dec 16 20:02:54 2008
@@ -51,4 +51,4 @@
 	  (move-window-to w last-x last-y)))))
 
   ;;###autoload
-  (define-placement-mode 'stagger place-window-stagger))
+  (define-placement-mode 'stagger place-window-stagger #:for-normal t))