* library/looknfeel.tcl (standard_look_and_feel):

       Font changes to improve default look and feel.
       Increase default font size, use helvetica for
       menus, status bar and balloon help.

diff --git a/libgui/ChangeLog b/libgui/ChangeLog
index 3a92d83..10e62a8 100644 (file)
--- a/libgui/ChangeLog
+++ b/libgui/ChangeLog
@@ -1,3 +1,10 @@
+2001-10-10  Ian Roxborough  <irox@redhat.com>
+
+       * library/looknfeel.tcl (standard_look_and_feel):
+       Font changes to improve default look and feel.
+       Increase default font size, use helvetica for
+       menus, status bar and balloon help.
+       
 2001-09-08  Ian Roxborough <irox@redhat.com>
 
        * all: Tcl/Tk8.3 upgrade merge.

diff --git a/libgui/library/looknfeel.tcl b/libgui/library/looknfeel.tcl
index dbffe26..10b3d98 100644 (file)
--- a/libgui/library/looknfeel.tcl
+++ b/libgui/library/looknfeel.tcl
@@ -34,12 +34,13 @@ proc standard_look_and_feel {} {
     eval define_font global/italic [array get actual]
     define_font global/menu -family windows-menu
   } else {
-    define_font global/default -family courier -size 9
-    define_font global/bold -family courier -size 9 -weight bold
-    define_font global/fixed -family courier -size 9
-    define_font global/status -family courier -size 9
-    define_font global/italic -family courier -size 9 -slant italic
-    define_font global/menu -family courier -size 9
+    set size 12
+    define_font global/default -family courier -size $size 
+    define_font global/bold -family courier -size $size -weight bold
+    define_font global/fixed -family courier -size $size
+    define_font global/status -family helvetica -size [expr $size - 1]
+    define_font global/italic -family courier -size $size -slant italic
+    define_font global/menu -family helvetica -size $size
   }
 
   # Make sure this font is actually used by default.