[PATCH] libgui: Adjust windows default fonts

Roland Schwingel <[email protected]> Thu, 22 Mar 2012 15:54:39 +0100
Newsgroups gmane.comp.debugging.insight
Message-ID <[email protected]>
Hi...

libgui sets a bunch of default fonts which are giving the UI a quite
heavy/fat look on windows. Attached you find a small patch that uses
smaller fonts on windows. This results in roughly 30% more space in
source view and nicer looking panels. The changed fonts are at least
present since windows NT 4.0 - also since 1996 - so we can use them just
nicely.

Attached you find the small patch. Originally I wanted to attach 2 screenshots
but the mail got rejected by the mailinglist software. If someone is
interested I can send them seperately.

The patch is windows only!

Changelog:

2012-03-22  Roland Schwingel<[email protected]>

      * library/looknfeel.tcl (standard_look_and_feel): Change default
      fonts on windows. Default and status font is now Tahoma size 10.
      Source font is now Lucida Console size 9.

Any comments? Is this ok?

Roland
libgui_win_defaults.patch (text/plain, 997 B)
diff -ruN libgui_orig/library/looknfeel.tcl libgui/library/looknfeel.tcl
--- libgui_orig/library/looknfeel.tcl	2002-02-26 02:16:22.000000000 +0100
+++ libgui/library/looknfeel.tcl	2012-03-22 13:44:12.516985900 +0100
@@ -22,11 +22,11 @@
   # The fixed font is guaranteed not to be proportional.
   # The status font should be used in status bars and tooltips.
   if {$tcl_platform(platform) == "windows"} then {
-    define_font global/default -family windows-message
+    define_font global/default -family "Tahoma" -size 10
     # FIXME: this isn't actually a bold font...
     define_font global/bold -family windows-caption
-    define_font global/fixed -family fixedsys
-    define_font global/status -family windows-status
+    define_font global/fixed -family "Lucida Console" -size 9
+    define_font global/status -family "Tahoma" -size 10
     # FIXME: we'd like this font to update automatically as well.  But
     # for now we can't.
     array set actual [font actual windows-message]