From a5c6a1759d76a5220dbfed2d0c94fbddf283f421 Mon Sep 17 00:00:00 2001
From: cinamod <cinamod>
Date: Fri, 29 Aug 2003 22:10:07 +0000
Subject: [PATCH] better font handling

---
 modules/engines/ms-windows/ChangeLog.old |  1 +
 modules/engines/ms-windows/wimp_style.c  | 76 ++++++++++++++++++++----
 2 files changed, 64 insertions(+), 13 deletions(-)

diff --git a/modules/engines/ms-windows/ChangeLog.old b/modules/engines/ms-windows/ChangeLog.old
index 7b786ef164..0e67e9043e 100755
--- a/modules/engines/ms-windows/ChangeLog.old
+++ b/modules/engines/ms-windows/ChangeLog.old
@@ -1,6 +1,7 @@
 2003-08-29  Dom Lachowicz <cinamod@hotmail.com>
 
 	* src/*.c: Theme GTK toolbar arrows to XP chevrons, once my GTK patch is committed.
+	* src/wimp_style.c: Enable proper fonts/sizes for menus, status bars. Tooltips are giving me grief, though.
 
 2003-08-28  Dom Lachowicz <cinamod@hotmail.com>
 
diff --git a/modules/engines/ms-windows/wimp_style.c b/modules/engines/ms-windows/wimp_style.c
index 1d53e1aa66..01ad3f3969 100755
--- a/modules/engines/ms-windows/wimp_style.c
+++ b/modules/engines/ms-windows/wimp_style.c
@@ -116,8 +116,16 @@ static struct {
   { radio_text_bits, NULL }
 };
 
+typedef enum
+{
+	CAPTION_FONT,
+	MENU_FONT,
+	STATUS_FONT,
+	MESSAGE_FONT
+} SystemFontType;
+
 static gboolean
-get_system_font(LOGFONT *lf)
+get_system_font(SystemFontType type, LOGFONT *out_lf)
 {
   gboolean ok;
 
@@ -127,27 +135,46 @@ get_system_font(LOGFONT *lf)
 			    sizeof(NONCLIENTMETRICS), &ncm, 0);
   if (ok)
     {
-      *lf = ncm.lfMessageFont;
+		if (type == CAPTION_FONT)
+			*out_lf = ncm.lfCaptionFont;
+		else if (type == MENU_FONT)
+			*out_lf = ncm.lfMenuFont;
+		else if (type == STATUS_FONT)
+			*out_lf = ncm.lfStatusFont;
+		else
+	      *out_lf = ncm.lfMessageFont;
     }
 
   return ok;
 }
 
-static void
-setup_system_font(GtkStyle *style)
+static char *
+sys_font_to_pango_font (SystemFontType type, char * buf)
 {
   LOGFONT lf;
+  int pt_size;
 
-  if (get_system_font(&lf))
+  if (get_system_font(type, &lf))
     {
-      char buf[64]; /* It's okay, lfFaceName is smaller than 32 chars */
-      int pt_size;
-
       pt_size = -MulDiv(lf.lfHeight, 72,
                         GetDeviceCaps(GetDC(GetDesktopWindow()),
                                       LOGPIXELSY));
       sprintf(buf, "%s %d", lf.lfFaceName, pt_size);
-      style->font_desc = pango_font_description_from_string(buf);
+
+	  return buf;
+	}
+
+	return NULL;
+}
+
+static void
+setup_system_font(GtkStyle *style)
+{
+  char buf[64], * font; /* It's okay, lfFaceName is smaller than 32 chars */
+
+  if ((font = sys_font_to_pango_font(MESSAGE_FONT, buf)) != NULL)
+    {
+      style->font_desc = pango_font_description_from_string(font);
     }
 }
 
@@ -164,7 +191,7 @@ sys_color_to_gtk_color(int id, GdkColor *pcolor)
 static void
 setup_system_styles(GtkStyle *style)
 {
-  char buf[1024];
+  char buf[1024], font_buf[64], *font_ptr;
   GdkColor menu_color;
   GdkColor menu_text_color;
   GdkColor fg_prelight;
@@ -246,6 +273,7 @@ setup_system_styles(GtkStyle *style)
     }
 
   /* Enable coloring for menus. */
+  font_ptr = sys_font_to_pango_font (MENU_FONT,font_buf);
   sprintf(buf, "style \"wimp-menu\"\n"
           "{fg[PRELIGHT] = { %d, %d, %d }\n"
           "bg[PRELIGHT] = { %d, %d, %d }\n"
@@ -253,6 +281,7 @@ setup_system_styles(GtkStyle *style)
           "base[PRELIGHT] = { %d, %d, %d }\n"
           "fg[NORMAL] = { %d, %d, %d }\n"
           "bg[NORMAL] = { %d, %d, %d }\n"
+          "%s = \"%s\"\n"
           "}widget_class \"*GtkMenu*\" style \"wimp-menu\"\n",
           fg_prelight.red,
           fg_prelight.green,
@@ -271,14 +300,26 @@ setup_system_styles(GtkStyle *style)
           menu_text_color.blue,
           menu_color.red,
           menu_color.green,
-          menu_color.blue);
+          menu_color.blue,
+          (font_ptr ? "font_name" : "#"),
+          (font_ptr ? font_ptr : " font name should go here"));
   gtk_rc_parse_string(buf);
 
-  /* enable coloring for tooltips */
+#if 0
+  /* enable tooltip fonts */
+  font_ptr = sys_font_to_pango_font (CAPTION_FONT,font_buf);
+  sprintf(buf, "style \"wimp-tooltip-font\"\n"
+	  "{%s = \"%s\"\n"
+	  "}widget_class \"*GtkWindow.GtkLabel*\" style \"wimp-tooltip-font\"\n",
+          (font_ptr ? "font_name" : "#"),
+          (font_ptr ? font_ptr : " font name should go here"));
+  gtk_rc_parse_string(buf);
+#endif
+
   sprintf(buf, "style \"wimp-tooltips\"\n"
 	  "{fg[NORMAL] = { %d, %d, %d }\n"
 	  "bg[NORMAL] = { %d, %d, %d }\n"
-	  "}widget \"*gtk-tooltips*\" style \"wimp-tooltips\"\n",
+	  "}widget \"gtk-tooltips*\" style \"wimp-tooltips\"\n",
           tooltip_fore.red,
           tooltip_fore.green,
           tooltip_fore.blue,
@@ -287,6 +328,15 @@ setup_system_styles(GtkStyle *style)
           tooltip_back.blue);
   gtk_rc_parse_string(buf);
 
+  /* enable font theming for status bars */
+  font_ptr = sys_font_to_pango_font (STATUS_FONT,font_buf);
+  sprintf(buf, "style \"wimp-statusbar\"\n"
+	  "{%s = \"%s\"\n"
+	  "}widget_class \"*GtkStatusbar*\" style \"wimp-statusbar\"\n",
+          (font_ptr ? "font_name" : "#"),
+          (font_ptr ? font_ptr : " font name should go here"));
+  gtk_rc_parse_string(buf);
+
   /* enable coloring for text on buttons
      TODO: use GetThemeMetric for the border and outside border */
   sprintf(buf, "style \"wimp-button\"\n"