diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2007-05-04 21:29:22 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2007-05-04 21:29:22 (GMT) |
| commit | b721e1f32dc43b3626d65e9211ae661af0d969f3 (patch) | |
| tree | 51e7b83d5b0e0635d7c5c5de62858ea248f463ec /library/ttk/fonts.tcl | |
| parent | 8d83285f461dd84680e46ac7ff6325f43cf48a74 (diff) | |
| download | tk-b721e1f32dc43b3626d65e9211ae661af0d969f3.zip tk-b721e1f32dc43b3626d65e9211ae661af0d969f3.tar.gz tk-b721e1f32dc43b3626d65e9211ae661af0d969f3.tar.bz2 | |
TIP #145 implementation
Diffstat (limited to 'library/ttk/fonts.tcl')
| -rw-r--r-- | library/ttk/fonts.tcl | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/library/ttk/fonts.tcl b/library/ttk/fonts.tcl index db15ad1..8cb6c33 100644 --- a/library/ttk/fonts.tcl +++ b/library/ttk/fonts.tcl @@ -1,5 +1,5 @@ # -# $Id: fonts.tcl,v 1.3 2006/11/28 21:25:27 jenglish Exp $ +# $Id: fonts.tcl,v 1.4 2007/05/04 21:29:22 patthoyts Exp $ # # Font specifications. # @@ -75,7 +75,8 @@ namespace eval ttk { -catch {font create TkDefaultFont} + +set tip145 [catch {font create TkDefaultFont}] catch {font create TkTextFont} catch {font create TkHeadingFont} catch {font create TkCaptionFont} @@ -100,12 +101,14 @@ switch -- [tk windowingsystem] { } set F(size) 8 - font configure TkDefaultFont -family $F(family) -size $F(size) - font configure TkTextFont -family $F(family) -size $F(size) - font configure TkHeadingFont -family $F(family) -size $F(size) - font configure TkCaptionFont -family $F(family) -size $F(size) \ - -weight bold - font configure TkTooltipFont -family $F(family) -size $F(size) + if {!$tip145} { + font configure TkDefaultFont -family $F(family) -size $F(size) + font configure TkTextFont -family $F(family) -size $F(size) + font configure TkHeadingFont -family $F(family) -size $F(size) + font configure TkCaptionFont -family $F(family) -size $F(size) \ + -weight bold + font configure TkTooltipFont -family $F(family) -size $F(size) + } } aqua { set F(family) "Lucida Grande" |