Re: Customizable tool bars

[Michael Piotrowski <mxp@dynalabs.de>]

[-- Attachment #1: Type: text/plain, Size: 390 bytes --]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

> The new tool bars are now the default if (> (display-color-cells) 256).
>
> For some reason Emacs 21 returns nil for that whereas Emacs 22 returns
> t on the same display.  Any ideas?

No ideas about that, but XEmacs has `device-color-cells' instead of
`display-color-cells'.  To be able to start Gnus, I changed
gmm-utils.el like this:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Use `device-color-cells' on XEmacs --]
[-- Type: text/x-patch, Size: 688 bytes --]

Index: lisp/gmm-utils.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gmm-utils.el,v
retrieving revision 7.15
diff -C2 -r7.15 gmm-utils.el
*** lisp/gmm-utils.el	1 Mar 2006 16:51:17 -0000	7.15
--- lisp/gmm-utils.el	1 Mar 2006 19:29:25 -0000
***************
*** 177,181 ****
  			  (symbol :tag "Icon item")))))
  
! (defcustom gmm-tool-bar-style (if (> (display-color-cells) 256)
  				  'gnome
  				'retro)
--- 177,183 ----
  			  (symbol :tag "Icon item")))))
  
! (defcustom gmm-tool-bar-style (if (> (if (featurep 'xemacs)
! 					 (device-color-cells)
! 				       (display-color-cells)) 256)
  				  'gnome
  				'retro)

[-- Attachment #3: Type: text/plain, Size: 383 bytes --]


I don't know whether this is the best solution, but it works for me.
I noticed that it `device-color-cells' returns 256 even though I've
got 24 bit color depth, but frankly, I don't care since I'm using my
own text-only toolbar anyway ;-)

Greetings

-- 
Michael Piotrowski, M.A.                               <mxp@dynalabs.de>
Public key at <http://www.dynalabs.de/mxp/pubkey.txt>