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

[Daniel Ortmann]

Excellent work!  The patch works *completely* correctly.

I tested it with emacs running directly under X, and also under a tty,
with and without the options "-q --no-site-file".

Thank you!

Eli Zaretskii <eliz@is.elta.co.il> writes:

> 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;
>       }
> 
> 

-- 
Daniel Ortmann, 2414 30 Av NW, #D, Rochester, MN 55901
ortmann@isl.net (h)   / 507.288.7732 (h)
dortmann@lsil.com (w) / 507.529.3887 (w)