sawfish r4280 - in branches/sawfish-experimental: . lisp/sawfish/wm/commands lisp/sawfish/wm/util

[jkozicki svn gnome org]

Author: jkozicki
Date: Wed Sep 17 15:58:19 2008
New Revision: 4280
URL: http://svn.gnome.org/viewvc/sawfish?rev=4280&view=rev

Log:
Re-expose move-resize-options by Christopher Bratusek. Brings back move-resize-raise-window and resize-edge-mode to sawfish-ui.




Modified:
   branches/sawfish-experimental/ChangeLog
   branches/sawfish-experimental/lisp/sawfish/wm/commands/move-resize.jl
   branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl

Modified: branches/sawfish-experimental/lisp/sawfish/wm/commands/move-resize.jl
==============================================================================
--- branches/sawfish-experimental/lisp/sawfish/wm/commands/move-resize.jl	(original)
+++ branches/sawfish-experimental/lisp/sawfish/wm/commands/move-resize.jl	Wed Sep 17 15:58:19 2008
@@ -54,8 +54,10 @@
   (defvar resize-outline-mode 'opaque
     "How windows being resized are animated, either `opaque' or `box'")
   
-  (defvar move-resize-raise-window nil
-    "Raise windows when they are moved or resized.")
+  (defcustom move-resize-raise-window nil
+    "Raise windows when they are moved or resized."
+    :type boolean
+    :group move)
   
   (defcustom move-show-position nil
     "Show current position of windows while moving."
@@ -67,9 +69,10 @@
     :group move
     :type boolean)
   
-  (defvar resize-edge-mode 'border-grab
-    "How to choose window edges when resizing. One of `region', `border',
-`grab', `border-grab'")
+  (defcustom resize-edge-mode 'border-grab
+    "How to choose window edges when resizing."
+    :type (choice region border grab border-grab)
+    :group move)
   
   (defcustom move-snap-epsilon 12
     "Distance in pixels before window edges align with each other."

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 15:58:19 2008
@@ -125,8 +125,8 @@
 	  nokogiri-buttons workspace-boundary-mode
 	  workspace-send-boundary-mode lock-first-workspace
 	  ignore-window-input-hint default-window-animator
-	  resize-edge-mode move-outline-mode resize-outline-mode
-	  move-resize-raise-window workspace-geometry
+         move-outline-mode resize-outline-mode
+         workspace-geometry
 	  pointer-motion-threshold ignore-program-positions))
 
 ;;; obsolete custom setters