John Paul Wallington <jpw at pobox.com>

(x_create_tip_frame): Set the `display-type' frame parameter before
setting up faces.

3 files changed, 25 insertions, 6 deletions

diff --git a/admin/FOR-RELEASE b/admin/FOR-RELEASE
index f31c4d07b7b..4ae742d9b90 100644
--- a/admin/FOR-RELEASE
+++ b/admin/FOR-RELEASE
@@ -65,12 +65,6 @@ http://lists.gnu.org/archive/html/emacs-devel/2007-09/msg02442.html
  property is not displayed
 http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00138.html
 
-** bojohan+news@dd.chalmers.se, Sep 21:
- tooltip frame uses (class mono) when processing defface specs
-(Actually it uses no class at all.)
-http://lists.gnu.org/archive/html/emacs-devel/2007-09/msg01793.html
-[jpw@pobox.com has a patch]
-
 * FIXES FOR EMACS 22.3
 
 Here we list any small fixes that arrived too late for Emacs 22.2, but
diff --git a/src/ChangeLog b/src/ChangeLog
index b42c75ab75a..27662e950a2 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-07  John Paul Wallington  <jpw@pobox.com>
+
+        * xfns.c (x_create_tip_frame): Set the `display-type' frame
+        parameter before setting up faces.
+
 2007-10-13  Eli Zaretskii  <eliz@gnu.org>
 
         * msdos.c (dos_rawgetc): Undo last change (there's no ``leaving
diff --git a/src/xfns.c b/src/xfns.c
index 13672736849..d1f35eee4e7 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -4927,6 +4927,26 @@ x_create_tip_frame (dpyinfo, parms, text)
     Fmodify_frame_parameters (frame, Fcons (Fcons (intern ("tooltip"), Qt),
                                             Qnil));
 
+  /* FIXME - can this be done in a similar way to normal frames?
+     http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg00641.html */
+
+  /* Set the `display-type' frame parameter before setting up faces. */
+  {
+    Lisp_Object disptype;
+
+    if (FRAME_X_DISPLAY_INFO (f)->n_planes == 1)
+      disptype = intern ("mono");
+    else if (FRAME_X_DISPLAY_INFO (f)->visual->class == GrayScale ||
+             FRAME_X_DISPLAY_INFO (f)->visual->class == StaticGray)
+      disptype = intern ("grayscale");
+    else
+      disptype = intern ("color");
+
+    if (NILP (Fframe_parameter (frame, Qdisplay_type)))
+      Fmodify_frame_parameters (frame, Fcons (Fcons (Qdisplay_type, disptype),
+                                              Qnil));
+  }
+
   /* Set up faces after all frame parameters are known.  This call
      also merges in face attributes specified for new frames.