[sawfish] renamed frame-font-focus-color to frame-font-active-color -- updated OPTIONS



commit 763a1ac02eb1d7ed0675d30711db1e951719c235
Author: chrisb <zanghar freenet de>
Date:   Sat Sep 26 21:54:34 2009 +0200

    renamed frame-font-focus-color to frame-font-active-color -- updated OPTIONS

 ChangeLog                 |    2 ++
 OPTIONS                   |    9 +++++++++
 lisp/sawfish/wm/extras.jl |    2 +-
 lisp/sawfish/wm/frames.jl |    2 +-
 4 files changed, 13 insertions(+), 2 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 6bc0cc1..7325660 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -38,6 +38,8 @@
 	                             *independently* of what frame-style is beeing used
 				     -- [Matthew Love, Christopher Bratusek]
 
+	* OPTIONS: updated
+
 2009-09-23  Christopher Bratusek <zanghar freenet de>
 	* man/news.texi: news items for 1.6.0 are partially rewritten [Teika Kazura]
 
diff --git a/OPTIONS b/OPTIONS
index 3fa3a56..4dbbe0f 100644
--- a/OPTIONS
+++ b/OPTIONS
@@ -127,6 +127,15 @@
 ;;  (define-special-variable default-bevel-percent nil
 ;;    "Bevel intensity as a percentage.")
 
+;;  (define-special-variable use-custom-font-color '()
+;;    "Use custom font colors for frames")
+
+;;  (define-special-variable frame-font-active-color "black"
+;;    "Font color for active frames")
+
+;;  (define-special-variable frame-font-inactive-color "black"
+;;    "Font color for inactive frames")
+
 ;; menu options
 
 ;;  (define-special-variable menus-include-shortcuts nil
diff --git a/lisp/sawfish/wm/extras.jl b/lisp/sawfish/wm/extras.jl
index 0bfd4ed..1ac81d3 100644
--- a/lisp/sawfish/wm/extras.jl
+++ b/lisp/sawfish/wm/extras.jl
@@ -30,7 +30,7 @@
     :group appearance
     :after-set (lambda () (update-frame-font-color)))
 
-  (defcustom frame-font-focus-color "black"
+  (defcustom frame-font-active-color "black"
     "Font color for active frames"
     :type color
     :group appearance
diff --git a/lisp/sawfish/wm/frames.jl b/lisp/sawfish/wm/frames.jl
index 6e21d7b..9c65c2e 100644
--- a/lisp/sawfish/wm/frames.jl
+++ b/lisp/sawfish/wm/frames.jl
@@ -167,7 +167,7 @@ that overrides settings set elsewhere.")
   (define (update-frame-font-color)
     (if use-custom-font-color
 	(mapc (lambda (fc)
-		(set-frame-part-value fc 'foreground (list frame-font-inactive-color frame-font-focus-color) 't)) (list 'title 'tab))
+		(set-frame-part-value fc 'foreground (list frame-font-inactive-color frame-font-active-color) 't)) (list 'title 'tab))
       (mapc (lambda (fc)
 	      (rplacd (assoc 'foreground (assoc fc override-frame-part-classes)) nil)
 	      (rplaca (assoc 'foreground (assoc fc override-frame-part-classes)) nil)) (list 'title 'tab)))



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