提交: 059c412b959b8098e0c51e52971526f39c61d429 - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• 修订版: 059c412b959b8098e0c51e52971526f39c61d429 (tree)
• 时间: 2011-06-15 04:24:05
• 作者: Christopher Roy Bratusek <nano@tuxf...>
• Commiter: Christopher Roy Bratusek

Log Message

added an ugly hack to ensure tab-adjustments are correct when switching between tabbed themes from SawfishConfig

更改概述

• modified: ChangeLog
• modified: lisp/sawfish/wm/frames.jl

差异

--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,8 @@
 2011-06-14  Christopher Roy Bratusek <[e-mail]>
 	* lisp/sawfish/wm/frames.jl: add an option to control the titlebar
-	text position, both in vertical and horizontal direction
+	text position, both in vertical and horizontal direction. Added an
+	ugly hack to ensure tab-adjustments are correct when switching between
+	tabbed themes from SawfishConfig.
 
 	* themes/StyleTab/theme.jl: set title-x offsets so that
 	update-text-position works properly with StyleTab

--- a/lisp/sawfish/wm/frames.jl
+++ b/lisp/sawfish/wm/frames.jl
@@ -537,11 +537,20 @@ generate.")
     (check-frame-availability default-frame-style)
     (after-setting-frame-option)
     ;; XXX Fucking evil!
+    ;; XXX offsets would be wrong else...
     (if use-custom-text-position
       (setq use-custom-text-position nil)
       (update-text-position)
       (setq use-custom-text-position t)
-      (update-text-position)))
+      (update-text-position))
+    ;; XXX even more Fucking evil!
+    ;; XXX tab-adjustments would be wrong else
+    ;; XXX even though each theme sets them...
+    (if (or (eq default-frame-style (intern "StyleTab"))
+	    (eq default-frame-style (intern "Elberg-tabbbed"))
+	    (eq default-frame-style (intern "get-S-tabbed"))
+	    (eq default-frame-style (intern "gradient-tabbed")))
+      (reframe-windows-with-style default-frame-style)))
 
   (define (rebuild-frames-with-style style)
     (map-windows (lambda (w)