From 47ce4df6b048104c8ceaf5640daf5f22785f4590 Mon Sep 17 00:00:00 2001
From: jenglish <jenglish@flightlab.com>
Date: Sun, 12 Nov 2006 21:32:19 +0000
Subject: Workaround for #1583038

---
 ChangeLog          | 4 ++++
 tests/ttk/ttk.test | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 1a7d2af..c3ae667 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2006-11-12  Joe English  <jenglish@users.sourceforge.net>
 
+	* tests/ttk/ttk.test(ttk-6.9): Workaround for #1583038
+
+2006-11-12  Joe English  <jenglish@users.sourceforge.net>
+
 	* generic/ttkScroll.c: Reworked cleanup procedure --
 	"self-cancelling" idle call is not robust, call
 	Tcl_CancelIdleCall() in TtkFreeScrollHandle instead.
diff --git a/tests/ttk/ttk.test b/tests/ttk/ttk.test
index 1532a24..654f174 100644
--- a/tests/ttk/ttk.test
+++ b/tests/ttk/ttk.test
@@ -96,7 +96,7 @@ test ttk-6.9 "Bad font spec in styles" -setup {
 } -cleanup {
     ttk::style theme use default
 } -body {
-    pack [ttk::label .l -text Hi!]
+    pack [ttk::label .l -text Hi! -font {}]
     event generate .l <Expose>
     update
     destroy .l
-- 
cgit v0.12