Re: customize-face: inverse-video does not work when customizing the menu face

[Eli Zaretskii]

On 18 Nov 2001, Daniel Ortmann wrote:

> When I run with "-q --no-site-file" (and did set-mouse-color and
> set-cursor-color to see my mouse and cursor), I have to bring up a NEW
> FRAME and THEN I see my specified colors, in this case black on skyblue.

Thanks.  With this, I was able to reproduce the problem.  It turns out I 
was wrong: Emacs _can_ control the appearance of the toolkit menus from 
within a running session.

Please try the changes below and see if they fix the problem.

*** src/xfaces.c~0      Wed Aug 22 11:44:15 2001
--- src/xfaces.c        Mon Nov 19 18:20:02 2001
*************** x_update_menu_appearance (f)
*** 4438,4449 ****
        
        if (STRINGP (LFACE_FOREGROUND (lface)))
        {
!         sprintf (line, "%s.%s*foreground: %s",
                   myname, popup_path,
                   XSTRING (LFACE_FOREGROUND (lface))->data);
          XrmPutLineResource (&rdb, line);
!         sprintf (line, "%s.pane.menubar*foreground: %s",
!                  myname, XSTRING (LFACE_FOREGROUND (lface))->data);
          XrmPutLineResource (&rdb, line);
          changed_p = 1;
        }
--- 4438,4452 ----
        
        if (STRINGP (LFACE_FOREGROUND (lface)))
        {
!         sprintf (line, "%s.%s*%sground: %s",
                   myname, popup_path,
+                  EQ (LFACE_INVERSE (lface), Qt) ? "back" : "fore",
                   XSTRING (LFACE_FOREGROUND (lface))->data);
          XrmPutLineResource (&rdb, line);
!         sprintf (line, "%s.pane.menubar*%sground: %s",
!                  myname,
!                  EQ (LFACE_INVERSE (lface), Qt) ? "back" : "fore",
!                  XSTRING (LFACE_FOREGROUND (lface))->data);
          XrmPutLineResource (&rdb, line);
          changed_p = 1;
        }
*************** x_update_menu_appearance (f)
*** 4450,4461 ****
  
        if (STRINGP (LFACE_BACKGROUND (lface)))
        {
!         sprintf (line, "%s.%s*background: %s",
                   myname, popup_path,
                   XSTRING (LFACE_BACKGROUND (lface))->data);
          XrmPutLineResource (&rdb, line);
!         sprintf (line, "%s.pane.menubar*background: %s",
!                  myname, XSTRING (LFACE_BACKGROUND (lface))->data);
          XrmPutLineResource (&rdb, line);
          changed_p = 1;
        }
--- 4453,4467 ----
  
        if (STRINGP (LFACE_BACKGROUND (lface)))
        {
!         sprintf (line, "%s.%s*%sground: %s",
                   myname, popup_path,
+                  EQ (LFACE_INVERSE (lface), Qt) ? "fore" : "back",
                   XSTRING (LFACE_BACKGROUND (lface))->data);
          XrmPutLineResource (&rdb, line);
!         sprintf (line, "%s.pane.menubar*%sground: %s",
!                  myname,
!                  EQ (LFACE_INVERSE (lface), Qt) ? "fore" : "back",
!                  XSTRING (LFACE_BACKGROUND (lface))->data);
          XrmPutLineResource (&rdb, line);
          changed_p = 1;
        }