From 1a72e7527449c754a0edde0085f4eb4ad867fde5 Mon Sep 17 00:00:00 2001 From: patthoyts Date: Thu, 18 Oct 2007 14:23:54 +0000 Subject: * library/ttk/fonts.tcl: Create all the tip 145 font names on all platforms (mac and unix get handled in script, windows in C) --- ChangeLog | 5 +++++ library/ttk/fonts.tcl | 23 ++++++++++++++++++++++- 2 files changed, 27 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 60de1d8..b43c54b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2007-10-18 Pat Thoyts + + * library/ttk/fonts.tcl: Create all the tip 145 font names on all + platforms (mac and unix get handled in script, windows in C) + 2007-10-17 David Gravereaux * bitmaps/*.xbm: Changed CVS storage mode from -kb to -kkv as these 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 -- cgit v0.12