[sawfish/tabs-ng] frames.jl: call window-state-changed-hook while reframing a window, updating the title-position

[Christopher Bratusek <chrisb src gnome org>]

commit bf256fcf514a8de620224a1206d15f02fc85b6af
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Thu Nov 11 19:37:22 2010 +0100

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

 lisp/sawfish/wm/frames.jl |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)
---
diff --git a/lisp/sawfish/wm/frames.jl b/lisp/sawfish/wm/frames.jl
index 724a7b9..453e496 100644
--- 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)