[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
new splash screen
From: |
Miles Bader |
Subject: |
new splash screen |
Date: |
02 Nov 2001 18:28:33 +0900 |
Since the new splash screen (thanks Luis!) doesn't have all the white
chaff around the shadow, the black shadow is now invisible on a black
background, so I think we ought to put back in Gerd's old hack that
worked around that by making the shadow grey on dark backgrounds.
Any objections? Here's the patch:
[I've changed "gray" to "gray30" since I think it looks a lot better.]
diff -u -p -r1.253 -r1.252
--- startup.el 2001/03/20 15:14:48 1.253
+++ startup.el 2001/03/13 11:39:50 1.252
@@ -1087,6 +1087,12 @@
(let ((pos (/ (- window-width image-width) 2)))
(insert (propertize " " 'display `(space :align-to ,pos))))
+ ;; Change the color of the XPM version of the splash image
+ ;; so that it is visible with a dark frame background.
+ (when (and (memq 'xpm img)
+ (eq (frame-parameter nil 'background-mode) 'dark))
+ (setq img (append img '(:color-symbols (("#000000" . "gray30"))))))
+
;; Insert the image with a help-echo and a keymap.
(let ((map (make-sparse-keymap))
(help-echo "mouse-2: browse http://www.gnu.org/"))
-Miles
--
We live, as we dream -- alone....
- new splash screen,
Miles Bader <=