[sawfish] sawfish.wm.tabs.util as gaolled module added

[Christopher Bratusek <chrisb src gnome org>]

commit 388ee432c062f6cfe96de6d7808e2ddf3fbe28d4
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Oct 23 08:48:32 2010 +0200

    sawfish.wm.tabs.util as gaolled module added

 ChangeLog                    |    5 +++++
 lisp/sawfish/wm/gaol.jl      |    1 +
 lisp/sawfish/wm/tabs/util.jl |   26 ++++++++++++++++++++++++++
 3 files changed, 32 insertions(+), 0 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 568fd31..1cf63e2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-22  Christopher Bratusek <zanghar freenet de>
+	* lisp/sawfish/wm/tabs/util.jl: set-tab-adjustment function for tabbed-themes
+
+	* lisp/sawfish/wm/gaol.jl: added tabs/util to gaolled modules
+
 2010-10-21  Christopher Bratusek <zanghar freenet de>
 	* man/news.texi: fixed a typo
 	                 updated
diff --git a/lisp/sawfish/wm/gaol.jl b/lisp/sawfish/wm/gaol.jl
index 731ed98..7d2dbd8 100644
--- a/lisp/sawfish/wm/gaol.jl
+++ b/lisp/sawfish/wm/gaol.jl
@@ -71,6 +71,7 @@
 				sawfish.wm.util.gradient
 				sawfish.wm.util.recolor-image
 				sawfish.wm.theming.make-theme
+				sawfish.wm.tabs.util
 				;; compatibility
 				timers gradient make-theme))
 
diff --git a/lisp/sawfish/wm/tabs/util.jl b/lisp/sawfish/wm/tabs/util.jl
new file mode 100644
index 0000000..f05e570
--- /dev/null
+++ b/lisp/sawfish/wm/tabs/util.jl
@@ -0,0 +1,26 @@
+(define-structure sawfish.wm.tabs.util
+
+	(export set-tab-adjustments)
+
+	(open rep
+	      rep.system
+
+	      sawfish.wm.gaol)
+
+     (define-structure-alias tab-util sawfish.wm.tabs.util)
+
+  (define (set-tab-adjustments #!key left-dec right-dec left-margin right-margin left-margin-transient right-margin-transient)
+    (if left-dec
+        (defvar-setq tab-left-dec-width left-dec))
+    (if right-dec
+	(defvar-setq tab-right-dec-width right-dec))
+    (if left-margin
+	(defvar-setq tab-left-margin left-margin))
+    (if right-margin
+        (defvar-setq tab-right-margin right-margin))
+    (if left-margin-transient
+        (defvar-setq tab-left-margin-transient left-margin-transient))
+    (if right-margin-transient
+        (defvar-setq tab-right-margin-transient right-margin-transient)))
+
+  (gaol-add set-tab-adjustments))
\ No newline at end of file