diff options
| author | das <das> | 2007-10-21 14:51:47 (GMT) |
|---|---|---|
| committer | das <das> | 2007-10-21 14:51:47 (GMT) |
| commit | fcde771f3adc5b6c6c4326d7dbedeb2e27fffa00 (patch) | |
| tree | f97291f822ee1ba2bfb9f592c960b3c2fa083f8d /library/demos/widget | |
| parent | 9482319ee0542df108c62ef319a28f1afbab5937 (diff) | |
| download | tk-fcde771f3adc5b6c6c4326d7dbedeb2e27fffa00.zip tk-fcde771f3adc5b6c6c4326d7dbedeb2e27fffa00.tar.gz tk-fcde771f3adc5b6c6c4326d7dbedeb2e27fffa00.tar.bz2 | |
* library/demos/ttkmenu.tcl: Aqua GOOBE.
* library/demos/ttkpane.tcl:
* library/demos/widget:
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 |