diff options
| author | jenglish <jenglish@flightlab.com> | 2006-11-24 18:04:14 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2006-11-24 18:04:14 (GMT) |
| commit | a3220fdf64e35fe118d44af78a8d9582b416fbd7 (patch) | |
| tree | 5b155465341298f1a6a698db16a5c8cd767801a4 /library/ttk/classicTheme.tcl | |
| parent | 1f9a3b07076ff41b7ee08baa31e992abc40687cc (diff) | |
| download | tk-a3220fdf64e35fe118d44af78a8d9582b416fbd7.zip tk-a3220fdf64e35fe118d44af78a8d9582b416fbd7.tar.gz tk-a3220fdf64e35fe118d44af78a8d9582b416fbd7.tar.bz2 | |
* library/ttk/altTheme.tcl, library/ttk/clamTheme.tcl,
library/ttk/defaults.tcl, library/ttk/winTheme.tcl,
library/ttk/xpTheme.tcl: explicitly specify -anchor w on TMenubutton
* tests/ttk/entry.test: Fixed font dependency; test entry-3.2
should work on all platforms now.
* library/classicTheme.tcl: Don't define or use TkClassicDefaultFont.
* generic/ttk/ttkTreeview.c, generic/ttk/ttkPanedwindow.c:
Handle missing layouts.
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 \ |