From b1d837cc1a4b0654ab78b3380989e5539c654bb5 Mon Sep 17 00:00:00 2001
From: patthoyts <patthoyts@users.sourceforge.net>
Date: Fri, 3 Nov 2006 15:35:39 +0000
Subject: In a safe interp there is no osVersion field in tcl_platform so work
 around it.

---
 ChangeLog             |  5 +++++
 library/ttk/fonts.tcl | 21 +++++++++++++++------
 2 files changed, 20 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index dceb267..4662b15 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-03  Pat Thoyts  <patthoyts@users.sourceforge.net>
+
+	* library/ttk/fonts.tcl: In a safe interp there is no osVersion
+	field in tcl_platform so work around it.
+
 2006-11-02  Daniel Steffen  <das@users.sourceforge.net>
 
 	* generic/ttk/ttkBlink.c, generic/ttk/ttkButton.c:
diff --git a/library/ttk/fonts.tcl b/library/ttk/fonts.tcl
index c3d4d50..cca7d25 100644
--- a/library/ttk/fonts.tcl
+++ b/library/ttk/fonts.tcl
@@ -1,5 +1,5 @@
 #
-# $Id: fonts.tcl,v 1.1 2006/10/31 01:42:27 hobbs Exp $
+# $Id: fonts.tcl,v 1.2 2006/11/03 15:35:40 patthoyts Exp $
 #
 # Ttk package: Font specifications.
 #
@@ -83,11 +83,20 @@ catch {font create TkTooltipFont}
 
 switch -- [tk windowingsystem] {
     win32 {
-	if {$tcl_platform(osVersion) >= 5.0} {
-	    variable family "Tahoma"
-	} else {
-	    variable family "MS Sans Serif"
-	}
+        # In safe interps there is no osVersion element.
+	if {[info exists tcl_platform(osVersion)]} {
+            if {$tcl_platform(osVersion) >= 5.0} {
+                variable family "Tahoma"
+            } else {
+                variable family "MS Sans Serif"
+            }
+        } else {
+            if {[lsearch -exact [font families] Tahoma] != -1} {
+                variable family "Tahoma"
+            } else {
+                variable family "MS Sans Serif"
+            }
+        }
 	variable size 8
 
 	font configure TkDefaultFont -family $family -size $size
-- 
cgit v0.12