* library/ttk/fonts.tcl: Create all the tip 145 font names on all

	platforms (mac and unix get handled in script, windows in C)

1 files changed, 22 insertions, 1 deletions

diff --git a/library/ttk/fonts.tcl b/library/ttk/fonts.tcl
index 8cb6c33..45f4b01 100644
--- a/library/ttk/fonts.tcl
+++ b/library/ttk/fonts.tcl
@@ -1,5 +1,5 @@
 #
-# $Id: fonts.tcl,v 1.4 2007/05/04 21:29:22 patthoyts Exp $
+# $Id: fonts.tcl,v 1.5 2007/10/18 14:23:55 patthoyts Exp $
 #
 # Font specifications.
 #
@@ -81,6 +81,10 @@ catch {font create TkTextFont}
 catch {font create TkHeadingFont}
 catch {font create TkCaptionFont}
 catch {font create TkTooltipFont}
+catch {font create TkFixedFont}
+catch {font create TkIconFont}
+catch {font create TkMenuFont}
+catch {font create TkSmallCaptionFont}
 
 variable F	;# miscellaneous platform-specific font parameters
 switch -- [tk windowingsystem] {
@@ -108,13 +112,19 @@ switch -- [tk windowingsystem] {
             font configure TkCaptionFont -family $F(family) -size $F(size) \
                 -weight bold
             font configure TkTooltipFont -family $F(family) -size $F(size)
+            font configure TkFixedFont   -family Courier -size 10
+            font configure TkIconFont    -family $F(family) -size $F(size)
+            font configure TkMenuFont    -family $F(family) -size $F(size)
+            font configure TkSmallCaptionFont -family $F(family) -size $F(size)
         }
     }
     aqua {
 	set F(family) "Lucida Grande"
+	set F(fixed) "Monaco"
 	set F(size) 13
 	set F(viewsize) 12
 	set F(smallsize) 11
+	set F(fixedsize) 9
 
 	font configure TkDefaultFont -family $F(family) -size $F(size)
 	font configure TkTextFont    -family $F(family) -size $F(size)
@@ -122,17 +132,24 @@ switch -- [tk windowingsystem] {
 	font configure TkCaptionFont -family $F(family) -size $F(size) \
 					-weight bold
 	font configure TkTooltipFont -family $F(family) -size $F(viewsize)
+	font configure TkFixedFont   -family $F(fixed)  -size $F(fixedsize)
+	font configure TkIconFont    -family $F(family) -size $F(size)
+	font configure TkMenuFont    -family $F(family) -size $F(size)
+	font configure TkSmallCaptionFont -family $F(family) -size $F(fixedsize)
     }
     default -
     x11 {
 	if {![catch {tk::pkgconfig get fontsystem} F(fs)] && $F(fs) eq "xft"} {
 	    set F(family) "sans-serif"
+	    set F(fixed)  "monospace"
 	} else {
 	    set F(family) "Helvetica"
+	    set F(fixed)  "courier"
 	}
 	set F(size) -12
 	set F(ttsize) -10
 	set F(capsize) -14
+	set F(fixedsize) -10
 
 	font configure TkDefaultFont -family $F(family) -size $F(size)
 	font configure TkTextFont    -family $F(family) -size $F(size)
@@ -141,6 +158,10 @@ switch -- [tk windowingsystem] {
 	font configure TkCaptionFont -family $F(family) -size $F(capsize) \
 			-weight bold
 	font configure TkTooltipFont -family $F(family) -size $F(ttsize)
+	font configure TkFixedFont   -family $F(fixed)  -size $F(fixedsize)
+	font configure TkIconFont    -family $F(family) -size $F(size)
+	font configure TkMenuFont    -family $F(family) -size $F(size)
+	font configure TkSmallCaptionFont -family $F(family) -size $F(ttsize)
     }
 }
 unset -nocomplain F