[sawfish] renamed adjustment-title to adjust-title



commit 88c322459663ed56a841f7d7783c9b1d0a4ab5fe
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Sat Feb 19 22:37:13 2011 +0100

    renamed adjustment-title to adjust-title

 ChangeLog                        |    4 ++++
 lisp/sawfish/wm/frames.jl        |    2 +-
 lisp/sawfish/wm/tabs/tabgroup.jl |    6 +++---
 3 files changed, 8 insertions(+), 4 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 193287d..548922c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,10 @@
 	* lisp/sawfish/wm/edge/actions.jl
 	* lisp/sawfish/wm/edge/utils.jl:â??improved two strings
 
+	* lisp/sawfish/wm/frames.jl
+	* lisp/sawfish/wm/tabs/tabgroup.jl: renamed adjustment-title to
+	adjust-title
+
 2011-02-18  Christopher Roy Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/workspace.jl
 	* lisp/sawfish/wm/tabs/tabgroup.jl: - support tabbed windows in
diff --git a/lisp/sawfish/wm/frames.jl b/lisp/sawfish/wm/frames.jl
index 2a7071b..ac78814 100644
--- a/lisp/sawfish/wm/frames.jl
+++ b/lisp/sawfish/wm/frames.jl
@@ -330,7 +330,7 @@ generate.")
 
   (define (reframe-window w)
     (require 'sawfish.wm.tabs.tabgroup)
-    (adjustment-title w)
+    (adjust-title w)
     (if (window-get w 'ignored)
 	(progn
 	  (window-put w 'current-frame-style nil)
diff --git a/lisp/sawfish/wm/tabs/tabgroup.jl b/lisp/sawfish/wm/tabs/tabgroup.jl
index b4a74b5..967c95c 100644
--- a/lisp/sawfish/wm/tabs/tabgroup.jl
+++ b/lisp/sawfish/wm/tabs/tabgroup.jl
@@ -21,7 +21,7 @@
 (define-structure sawfish.wm.tabs.tabgroup
 
     (export window-tabbed-p
-            adjustment-title
+            adjust-title
             tab-refresh-group
             tab-release-window
             tab-raise-left-window
@@ -70,7 +70,7 @@
     (d tab-group-dimensions)
     (wl tab-group-window-list))
 
-  (define (adjustment-title w)
+  (define (adjust-title w)
     (call-window-hook 'window-state-change-hook w (list '(title-position))))
 
   (define (tab-move-resize-frame-window-to win x y w h)
@@ -168,7 +168,7 @@ sticky, unsticky, fixed-position."
           (let* ((index (tab-window-group-index win))
                  (wins (tab-group-window-list (nth index tab-groups)))
                  (focus (tab-group-offset win 0)))
-            (adjustment-title win)
+            (adjust-title win)
             (cond
              ((eq prop 'raise)
               (raise-windows focus wins))



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]