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

[jkozicki svn gnome org]

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

Log:
Re-expose outline-modes by Christopher Bratusek. Brings back move-outline-mode and resize-outline-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 16:04:28 2008
@@ -48,11 +48,15 @@
   ;; todo:
   ;;  * obey the aspect ratio size hints
 
-  (defvar move-outline-mode 'opaque
-    "How windows being moved are animated, either `opaque' or `box'")
+  (defcustom move-outline-mode 'opaque
+    "How windows being moved are animated"
+    :type (choice opaque box)
+    :group move)
   
-  (defvar resize-outline-mode 'opaque
-    "How windows being resized are animated, either `opaque' or `box'")
+  (defcustom resize-outline-mode 'opaque
+    "How windows being resized are animated"
+    :type (choice opaque box)
+    :group move)
   
   (defcustom move-resize-raise-window nil
     "Raise windows when they are moved or resized."

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 16:04:28 2008
@@ -125,7 +125,7 @@
 	  nokogiri-buttons workspace-boundary-mode
 	  workspace-send-boundary-mode lock-first-workspace
 	  ignore-window-input-hint
-         move-outline-mode resize-outline-mode
+         
          workspace-geometry
 	  pointer-motion-threshold ignore-program-positions))