summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2007-05-27 13:14:36 (GMT)
committerdas <das>2007-05-27 13:14:36 (GMT)
commit20eeeb7974cb31ad570850fa36c1c4459a7d76af (patch)
tree16bdb1bbd1db5ca2e22be54cb6320b9c0e3dc320
parent2c2b9a8111b7f49319419eebb9e753020ed5a523 (diff)
downloadtk-20eeeb7974cb31ad570850fa36c1c4459a7d76af.zip
tk-20eeeb7974cb31ad570850fa36c1c4459a7d76af.tar.gz
tk-20eeeb7974cb31ad570850fa36c1c4459a7d76af.tar.bz2
fix TIP #145 breakage on Aqua
-rw-r--r--library/demos/widget5
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