From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 11010 invoked by alias); 25 Feb 2002 21:05:42 -0000 Mailing-List: contact insight-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: insight-owner@sources.redhat.com Received: (qmail 10884 invoked from network); 25 Feb 2002 21:05:39 -0000 Received: from unknown (HELO cygnus.com) (205.180.230.5) by sources.redhat.com with SMTP; 25 Feb 2002 21:05:39 -0000 Received: from makita.cygnus.com (makita.cygnus.com [205.180.230.78]) by runyon.cygnus.com (8.8.7-cygnus/8.8.7) with ESMTP id NAA27576; Mon, 25 Feb 2002 13:05:37 -0800 (PST) Received: from localhost (keiths@localhost) by makita.cygnus.com (8.8.8+Sun/8.6.4) with ESMTP id NAA17751; Mon, 25 Feb 2002 13:05:37 -0800 (PST) X-Authentication-Warning: makita.cygnus.com: keiths owned process doing -bs Date: Mon, 25 Feb 2002 13:05:00 -0000 From: Keith Seitz X-X-Sender: To: Ian Roxborough cc: Subject: Re: [RFA] Change Windows menu font. In-Reply-To: <3C7AB000.5921649F@redhat.com> Message-ID: MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII X-SW-Source: 2002-q1/txt/msg00161.txt.bz2 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). Keith > ChangeLog: > 2002-02-25 Ian Roxborough > > * src/library/looknfeel.tcl (standard_look_and_feel): > Hard code Windows menu font name to MS Sans Serif 8. > > > Index: 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/25 20:15:09 > @@ -33,5 +33,5 @@ > set actual(-slant) italic > eval define_font global/italic [array get actual] > - define_font global/menu -family windows-menu > + define_font global/menu -family {MS Sans Serif} -size 8 > } else { > set size 12 >