Hi, glad it is working, here is a better version that works with tabbed
frames now too. The only problem is that it wont last through a session...
;-*-sawfish-*-
(require 'sawfish.wm.frames)
(require 'sawfish.wm.custom)
(defun update-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))
(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)))
(mapc (lambda (x) (rebuild-frame x)) (managed-windows)))
(defcustom frame-font-focus-color "white"
"Font color for active frames"
:type color
:group appearance
:depends use-custom-font-color
:after-set (lambda () (update-font-color)))
(defcustom frame-font-inactive-color "black"
"Font color for inactive frames"
:type color
:group appearance
:depends use-custom-font-color
:after-set (lambda () (update-font-color)))
(defcustom use-custom-font-color '()
"Use custom font colors for frames"
:type boolean
:group appearance
:after-set (lambda () (update-font-color)))
--
Matthew Love
