diff options
Diffstat (limited to 'library/ttk/classicTheme.tcl')
| -rw-r--r-- | library/ttk/classicTheme.tcl | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/library/ttk/classicTheme.tcl b/library/ttk/classicTheme.tcl index 6376268..5e29787 100644 --- a/library/ttk/classicTheme.tcl +++ b/library/ttk/classicTheme.tcl @@ -1,14 +1,13 @@ # -# $Id: classicTheme.tcl,v 1.1 2006/10/31 01:42:26 hobbs Exp $ +# $Id: classicTheme.tcl,v 1.2 2006/11/24 18:04:14 jenglish Exp $ # -# Ttk widget set: Classic theme. -# Implements the classic Tk Motif-like look and feel. +# "classic" Tk theme. +# +# Implements Tk's traditional Motif-like look and feel. # namespace eval ttk::theme::classic { - font create TkClassicDefaultFont -family Helvetica -weight bold -size -12 - variable colors; array set colors { -frame "#d9d9d9" -activebg "#ececec" @@ -22,7 +21,7 @@ namespace eval ttk::theme::classic { namespace import -force ::ttk::style style theme settings classic { style configure "." \ - -font TkClassicDefaultFont \ + -font TkDefaultFont \ -background $colors(-frame) \ -foreground black \ -selectbackground $colors(-selectbg) \ @@ -35,6 +34,9 @@ namespace eval ttk::theme::classic { -insertwidth 2 \ ; + # To match pre-Xft X11 appearance, use: + # ttk::style configure . -font {Helvetica 12 bold} + style map "." -background \ [list disabled $colors(-frame) active $colors(-activebg)] style map "." -foreground \ |