sawfish r4303 - in trunk: . themes/Crux

[chrisb svn gnome org]

Author: chrisb
Date: Wed Nov 19 20:54:23 2008
New Revision: 4303
URL: http://svn.gnome.org/viewvc/sawfish?rev=4303&view=rev

Log:
added Complete and Complete-Inverse button-layouts to Crux


Modified:
   trunk/ChangeLog
   trunk/themes/Crux/theme.jl

Modified: trunk/themes/Crux/theme.jl
==============================================================================
--- trunk/themes/Crux/theme.jl	(original)
+++ trunk/themes/Crux/theme.jl	Wed Nov 19 20:54:23 2008
@@ -41,20 +41,21 @@
   :after-set (lambda () (rebuild-all)))
 
 (defvar Crux:button-themes '((default
-			      ((close-button)
-			       . (iconify-button maximize-button shade-button)))
+			      ((close-button) . (iconify-button maximize-button shade-button)))
 			     (platinum
 			      ((close-button) . (maximize-button shade-button)))
 			     (macos-x
 			      ((close-button maximize-button iconify-button)))
 			     (windows
-			      ((menu-button)
-			       . (iconify-button maximize-button close-button))
+			      ((menu-button) . (iconify-button maximize-button close-button))
 			      ((menu-button)))
 			     (next
 			      ((iconify-button) . (close-button))
-			      ((iconify-button) . (close-button)))))
-			       
+			      ((iconify-button) . (close-button)))
+			     (complete
+			      ((close-button) . (shade-button iconify-button maximize-button menu-button)))
+			     (complete-inverse
+			      ((menu-button maximize-button iconify-button shade-button) . (close-button)))))
 
 (defcustom Crux:button-theme 'default
   "Display title buttons to mimic: \\w"
@@ -64,7 +65,9 @@
 		(platinum "Mac OS Platinum")
 		(macos-x "Mac OS X")
 		(windows "MS Windows")
-		(next "NeXTSTEP"))
+		(next "NeXTSTEP")
+		(complete "Complete")
+		(complete-inverse "Complete (Inverse)"))
   :group (appearance Crux)
   :after-set (lambda () (reframe-all)))