* src/library/looknfeel.tcl (standard_look_and_feel):

	Hard code Windows menu font name to MS Sans Serif 8.

diff --git a/libgui/ChangeLog b/libgui/ChangeLog
index 134093e..7b308f4 100644 (file)
--- a/libgui/ChangeLog
+++ b/libgui/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-25  Ian Roxborough  <irox@redhat.com>
+
+       * src/library/looknfeel.tcl (standard_look_and_feel):
+       Hard code Windows menu font name to MS Sans Serif 8.
+
 2002-02-24  Mo DeJong  <supermo@bayarea.net>
 
         * src/Makefile.am: Add -DSTATIC_BUILD so

diff --git a/libgui/library/looknfeel.tcl b/libgui/library/looknfeel.tcl
index 10b3d98..e0bb190 100644 (file)
--- a/libgui/library/looknfeel.tcl
+++ b/libgui/library/looknfeel.tcl
@@ -32,7 +32,11 @@ proc standard_look_and_feel {} {
     array set actual [font actual windows-message]
     set actual(-slant) italic
     eval define_font global/italic [array get actual]
-    define_font global/menu -family windows-menu
+
+    # The menu font used to be set via the "windows-menu"
+    # font family, however this seems to have been deprecated
+    # for Tcl/Tk version 8.3, so we hard code it instead.
+    define_font global/menu -family {MS Sans Serif} -size 8
   } else {
     set size 12
     define_font global/default -family courier -size $size