diff options
Diffstat (limited to 'library/ttk/fonts.tcl')
| -rw-r--r-- | library/ttk/fonts.tcl | 21 |
1 files changed, 15 insertions, 6 deletions
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 |