From 20eeeb7974cb31ad570850fa36c1c4459a7d76af Mon Sep 17 00:00:00 2001
From: das <das>
Date: Sun, 27 May 2007 13:14:36 +0000
Subject: fix TIP #145 breakage on Aqua

---
 library/demos/widget | 5 +++--
 1 file 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
-- 
cgit v0.12