sawfish r4281 - in branches/sawfish-experimental: . lisp/sawfish/wm lisp/sawfish/wm/util

[jkozicki svn gnome org]

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

Log:
Re-expose window-animator by Christopher Bratusek. Brings back default-window-animator to sawfish-ui.



Modified:
   branches/sawfish-experimental/ChangeLog
   branches/sawfish-experimental/lisp/sawfish/wm/util/compat.jl
   branches/sawfish-experimental/lisp/sawfish/wm/window-anim.jl

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:00:59 2008
@@ -124,7 +124,7 @@
 	  default-bevel-percent sp-padding nokogiri-user-level
 	  nokogiri-buttons workspace-boundary-mode
 	  workspace-send-boundary-mode lock-first-workspace
-	  ignore-window-input-hint default-window-animator
+	  ignore-window-input-hint
          move-outline-mode resize-outline-mode
          workspace-geometry
 	  pointer-motion-threshold ignore-program-positions))

Modified: branches/sawfish-experimental/lisp/sawfish/wm/window-anim.jl
==============================================================================
--- branches/sawfish-experimental/lisp/sawfish/wm/window-anim.jl	(original)
+++ branches/sawfish-experimental/lisp/sawfish/wm/window-anim.jl	Wed Sep 17 16:00:59 2008
@@ -37,11 +37,10 @@
   (define window-animators nil
     "List of all possible window animation types.")
 
-  ;; this used to be a defcustom, and I don't have anything against
-  ;; that, except the current animations are so lame it's embarassing
-
-  (defvar default-window-animator 'none
-    "The default window animation mode")
+  (defcustom default-window-animator 'none
+    "The default window animation mode"
+    :type (choice none solid wireframe)
+    :group move)
 
 ;;; animator registration