[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: customize-face: inverse-video does not work when customizing the men
From: |
Eli Zaretskii |
Subject: |
Re: customize-face: inverse-video does not work when customizing the menu face |
Date: |
Mon, 19 Nov 2001 18:55:14 +0200 (IST) |
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;
}