提交: bf256fcf514a8de620224a1206d15f02fc85b6af - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• 修订版: bf256fcf514a8de620224a1206d15f02fc85b6af (tree)
• 时间: 2010-11-12 03:37:22
• 作者: Christopher Roy Bratusek <zanghar@free...>
• Commiter: Christopher Roy Bratusek

Log Message

frames.jl:
call window-state-changed-hook while reframing a window, updating the title-position

更改概述

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

差异

--- a/lisp/sawfish/wm/frames.jl
+++ b/lisp/sawfish/wm/frames.jl
@@ -36,6 +36,7 @@
 	     apply-frame-style
 	     apply-frame-style-and-save
 	     window-type
+         adjustment-title
 	     set-window-type
 	     push-window-type
 	     pop-window-type
@@ -326,9 +327,13 @@ generate.")
 		  (reload-frame-style style))))
 	    frame-style-files)))
 
+  (define (adjustment-title w)
+    (call-window-hook 'window-state-change-hook w (list '(title-position))))
+
 ;;; applying frame styles to windows
 
   (define (reframe-window w)
+    (adjustment-title w)
     (if (window-get w 'ignored)
 	(progn
 	  (window-put w 'current-frame-style nil)