diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | library/ttk/fonts.tcl | 21 |
2 files changed, 20 insertions, 6 deletions
@@ -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 |