diff options
| author | das <das@noemail.net> | 2007-05-27 13:14:35 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2007-05-27 13:14:35 (GMT) |
| commit | 3b573c5aabd2e501c8ddd06f99a1326d56e768f5 (patch) | |
| tree | 16bdb1bbd1db5ca2e22be54cb6320b9c0e3dc320 /library | |
| parent | db5016669815512da221695bd2752c49d300e756 (diff) | |
| download | tk-3b573c5aabd2e501c8ddd06f99a1326d56e768f5.zip tk-3b573c5aabd2e501c8ddd06f99a1326d56e768f5.tar.gz tk-3b573c5aabd2e501c8ddd06f99a1326d56e768f5.tar.bz2 | |
fix TIP #145 breakage on Aqua
FossilOrigin-Name: ca7ecdaffb5a07ba129e7c7a940adc3ebe3f054e
Diffstat (limited to 'library')
| -rw-r--r-- | library/demos/widget | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/library/demos/widget b/library/demos/widget index c4e9fd6..f92d0a7 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -11,7 +11,7 @@ exec wish "$0" "$@" # ".tcl" files is this directory, which are sourced by this script # as needed. # -# RCS: @(#) $Id: widget,v 1.29 2007/05/04 21:29:22 patthoyts Exp $ +# RCS: @(#) $Id: widget,v 1.30 2007/05/27 13:14:36 das Exp $ package require Tcl 8.5 package require Tk 8.5 @@ -34,7 +34,8 @@ if {[tk windowingsystem] eq "x11"} { if {[lsearch -exact [font names] defaultFont] == -1} { # TIP #145 defines some standard named fonts - if {[lsearch -exact [font names] TkDefaultFont] != -1} { + if {[lsearch -exact [font names] TkDefaultFont] != -1 && + [lsearch -exact [font names] TkFixedFont] != -1} { # FIX ME: the following tecnique of cloning the font to copy it works # fine but means that if the system font is changed by # Tk cannot update the copied font. font alias might be |