new splash screen

[Miles Bader]

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....