This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
Re: [RFA] Change Windows menu font.
- From: Ian Roxborough <irox at redhat dot com>
- To: Keith Seitz <keiths at redhat dot com>
- Cc: insight at sources dot redhat dot com
- Date: Mon, 25 Feb 2002 17:25:25 -0800
- Subject: Re: [RFA] Change Windows menu font.
- References: <Pine.GSO.4.33.0202251304160.5961-100000@makita.cygnus.com>
Keith Seitz wrote:
>
> On Mon, 25 Feb 2002, Ian Roxborough wrote:
>
> > this little patch makes the fonts in the menus
> > consistant with the menu bars for MS-Windows.
>
> Approved, but could you add a comment about how we used to use the defined
> fonts "windows-menu" and friends, but the necessary machinery in the tk
> core is no longer available (because apparently scriptics didn't care).
I've checked it in, here's the patch with additional comments,
for the archives.
Ian.
Index: library/looknfeel.tcl
===================================================================
RCS file: /cvs/src/src/libgui/library/looknfeel.tcl,v
retrieving revision 1.3
diff -u -2 -r1.3 looknfeel.tcl
--- looknfeel.tcl 2001/10/11 03:29:54 1.3
+++ looknfeel.tcl 2002/02/26 00:07:46
@@ -33,5 +33,9 @@
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