1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
#
# $Id: fonts.tcl,v 1.2 2006/11/03 15:35:40 patthoyts Exp $
#
# Ttk package: Font specifications.
#
# This file, [source]d from ttk.tcl when the package is loaded,
# sets up the following symbolic fonts based on the current platform:
#
# TkDefaultFont -- default for GUI items not otherwise specified
# TkTextFont -- font for user text (entry, listbox, others). [not in #145]
# TkHeadingFont -- headings (column headings, etc) [not in #145]
# TkCaptionFont -- dialog captions (primary text in alert dialogs, etc.)
# TkTooltipFont -- font to use for tooltip windows
#
# This is a temporary solution until TIP #145 is implemented.
#
# Symbolic fonts listed in TIP #145:
#
# TkDefaultFont -- the default for all GUI items not otherwise specified.
# TkFixedFont -- standard fixed width font [not used in Ttk]
# TkMenuFont -- used for menu items [not used in Ttk]
# TkCaptionFont -- used for window and dialog caption bars [different in Ttk]
# TkSmallCaptionFont -- captions on contained windows or tool dialogs [not used]
# TkIconFont -- font in use for icon captions [not used in Ttk]
# TkTooltipFont -- font to use for tooltip windows
#
#
# +++ Platform notes:
#
# Windows:
# The default system font changed from "MS Sans Serif" to "Tahoma"
# in Windows XP/Windows 2000.
#
# MS documentation says to use "Tahoma 8" in Windows 2000/XP,
# although many MS programs still use "MS Sans Serif 8"
#
# Should use SystemParametersInfo() instead.
#
# Mac OSX / Aqua:
# Quoth the Apple HIG:
# The _system font_ (Lucida Grande Regular 13 pt) is used for text
# in menus, dialogs, and full-size controls.
# [...] Use the _view font_ (Lucida Grande Regular 12pt) as the default
# font of text in lists and tables.
# [...] Use the _emphasized system font_ (Lucida Grande Bold 13 pt)
# sparingly. It is used for the message text in alerts.
# [...] The _small system font_ (Lucida Grande Regular 11 pt) [...]
# is also the default font for column headings in lists, for help tags,
# and for small controls.
#
# Note that the font for column headings (TkHeadingFont) is
# _smaller_ than the
#
# There's also a GetThemeFont() Appearance Manager API call
# for looking up kThemeSystemFont dynamically.
#
# Mac classic:
# Don't know, can't find *anything* on the Web about Mac pre-OSX.
# Might have used Geneva. Doesn't matter, this platform
# isn't supported anymore anyway.
#
# X11:
# Need a way to tell if Xft is enabled or not.
# For now, assume patch #971980 applied.
#
# "Classic" look used Helvetica bold for everything except
# for entry widgets, which use Helvetica medium.
# Most other toolkits use medium weight for all UI elements,
# which is what we do now.
#
# Font size specified in pixels on X11, not points.
# This is Theoretically Wrong, but in practice works better; using
# points leads to huge inconsistencies across different servers.
#
namespace eval ttk {
catch {font create TkDefaultFont}
catch {font create TkTextFont}
catch {font create TkHeadingFont}
catch {font create TkCaptionFont}
catch {font create TkTooltipFont}
switch -- [tk windowingsystem] {
win32 {
# In safe interps there is no osVersion element.
if {[info exists tcl_platform(osVersion)]} {
if {$tcl_platform(osVersion) >= 5.0} {
variable family "Tahoma"
} else {
variable family "MS Sans Serif"
}
} else {
if {[lsearch -exact [font families] Tahoma] != -1} {
variable family "Tahoma"
} else {
variable family "MS Sans Serif"
}
}
variable size 8
font configure TkDefaultFont -family $family -size $size
font configure TkTextFont -family $family -size $size
font configure TkHeadingFont -family $family -size $size
font configure TkCaptionFont -family $family -size $size -weight bold
font configure TkTooltipFont -family $family -size $size
}
classic -
aqua {
variable family "Lucida Grande"
variable size 13
variable viewsize 12
variable smallsize 11
font configure TkDefaultFont -family $family -size $size
font configure TkTextFont -family $family -size $size
font configure TkHeadingFont -family $family -size $smallsize
font configure TkCaptionFont -family $family -size $size -weight bold
font configure TkTooltipFont -family $family -size $viewsize
}
x11 {
if {![catch {tk::pkgconfig get fontsystem} fs] && $fs eq "xft"} {
variable family "sans-serif"
} else {
variable family "Helvetica"
}
variable size -12
variable ttsize -10
variable capsize -14
font configure TkDefaultFont -family $family -size $size
font configure TkTextFont -family $family -size $size
font configure TkHeadingFont -family $family -size $size -weight bold
font configure TkCaptionFont -family $family -size $capsize -weight bold
font configure TkTooltipFont -family $family -size $ttsize
}
}
}
#*EOF*
|
