summaryrefslogtreecommitdiffstats
path: root/library/ttk/fonts.tcl
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2007-05-04 21:29:22 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2007-05-04 21:29:22 (GMT)
commitb721e1f32dc43b3626d65e9211ae661af0d969f3 (patch)
tree51e7b83d5b0e0635d7c5c5de62858ea248f463ec /library/ttk/fonts.tcl
parent8d83285f461dd84680e46ac7ff6325f43cf48a74 (diff)
downloadtk-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.tcl19
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"