diff options
Diffstat (limited to 'library/demos/widget')
| -rw-r--r-- | library/demos/widget | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/library/demos/widget b/library/demos/widget index ff4a0de..994189b 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -10,7 +10,7 @@ exec wish "$0" "$@" # separate ".tcl" files is this directory, which are sourced by this script as # needed. # -# RCS: @(#) $Id: widget,v 1.37 2007/10/18 14:34:06 dkf Exp $ +# RCS: @(#) $Id: widget,v 1.38 2007/10/21 14:51:47 das Exp $ package require Tcl 8.5 package require Tk 8.5 @@ -45,6 +45,9 @@ if {"defaultFont" ni [font names]} { font create titleFont {*}[font configure TkDefaultFont] -weight bold font create statusFont {*}[font configure TkDefaultFont] font create varsFont {*}[font configure TkDefaultFont] + if {[tk windowingsystem] eq "aqua"} { + font configure titleFont -size 17 + } } else { font create mainFont -family Helvetica -size 12 font create fixedFont -family Courier -size 10 |