summaryrefslogtreecommitdiffstats
path: root/library/ttk
diff options
context:
space:
mode:
authorjenglish <jenglish@flightlab.com>2006-11-24 18:04:14 (GMT)
committerjenglish <jenglish@flightlab.com>2006-11-24 18:04:14 (GMT)
commita3220fdf64e35fe118d44af78a8d9582b416fbd7 (patch)
tree5b155465341298f1a6a698db16a5c8cd767801a4 /library/ttk
parent1f9a3b07076ff41b7ee08baa31e992abc40687cc (diff)
downloadtk-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')
-rw-r--r--library/ttk/altTheme.tcl5
-rw-r--r--library/ttk/clamTheme.tcl5
-rw-r--r--library/ttk/classicTheme.tcl14
-rw-r--r--library/ttk/defaults.tcl5
-rw-r--r--library/ttk/ttk.tcl17
-rw-r--r--library/ttk/winTheme.tcl5
-rw-r--r--library/ttk/xpTheme.tcl4
7 files changed, 28 insertions, 27 deletions
diff --git a/library/ttk/altTheme.tcl b/library/ttk/altTheme.tcl
index 71fe23b..b1bbc65 100644
--- a/library/ttk/altTheme.tcl
+++ b/library/ttk/altTheme.tcl
@@ -1,5 +1,5 @@
#
-# $Id: altTheme.tcl,v 1.1 2006/10/31 01:42:26 hobbs Exp $
+# $Id: altTheme.tcl,v 1.2 2006/11/24 18:04:14 jenglish Exp $
#
# Ttk widget set: Alternate theme
#
@@ -49,7 +49,8 @@ namespace eval ttk::theme::alt {
style map TRadiobutton -indicatorcolor \
[list disabled $colors(-frame) pressed $colors(-frame)]
- style configure TMenubutton -width -11 -padding "3 3" -relief raised
+ style configure TMenubutton \
+ -width -11 -padding "3 3" -relief raised -anchor w
style configure TEntry -padding 1
style map TEntry -fieldbackground \
diff --git a/library/ttk/clamTheme.tcl b/library/ttk/clamTheme.tcl
index 76e24fe..abf979f 100644
--- a/library/ttk/clamTheme.tcl
+++ b/library/ttk/clamTheme.tcl
@@ -1,5 +1,5 @@
#
-# $Id: clamTheme.tcl,v 1.1 2006/10/31 01:42:26 hobbs Exp $
+# $Id: clamTheme.tcl,v 1.2 2006/11/24 18:04:14 jenglish Exp $
#
# Ttk widget set: "Clam" theme
#
@@ -82,7 +82,8 @@ namespace eval ttk::theme::clam {
style map TRadiobutton -indicatorbackground \
[list disabled $colors(-frame) pressed $colors(-frame)]
- style configure TMenubutton -width -11 -padding 5 -relief raised
+ style configure TMenubutton \
+ -width -11 -padding 5 -relief raised -anchor w
style configure TEntry -padding 1 -insertwidth 1
style map TEntry \
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 \
diff --git a/library/ttk/defaults.tcl b/library/ttk/defaults.tcl
index a370e65..be7d7f3 100644
--- a/library/ttk/defaults.tcl
+++ b/library/ttk/defaults.tcl
@@ -1,5 +1,5 @@
#
-# $Id: defaults.tcl,v 1.1 2006/10/31 01:42:27 hobbs Exp $
+# $Id: defaults.tcl,v 1.2 2006/11/24 18:04:14 jenglish Exp $
#
# Ttk widget set: Default theme
#
@@ -53,7 +53,8 @@ namespace eval ttk {
style map TRadiobutton -indicatorcolor \
[list pressed $colors(-activebg) selected $colors(-indicator)]
- style configure TMenubutton -relief raised -padding "10 3"
+ style configure TMenubutton \
+ -relief raised -padding "10 3" -anchor w
style configure TEntry -relief sunken -fieldbackground white -padding 1
style map TEntry -fieldbackground \
diff --git a/library/ttk/ttk.tcl b/library/ttk/ttk.tcl
index f573bfc..ed3c92d 100644
--- a/library/ttk/ttk.tcl
+++ b/library/ttk/ttk.tcl
@@ -1,5 +1,5 @@
#
-# $Id: ttk.tcl,v 1.1 2006/10/31 01:42:27 hobbs Exp $
+# $Id: ttk.tcl,v 1.2 2006/11/24 18:04:14 jenglish Exp $
#
# Ttk widget set initialization script.
#
@@ -24,27 +24,27 @@ source [file join $::ttk::library utils.tcl]
# Define $old command as a deprecated alias for $new command
# $old and $new must be fully namespace-qualified.
#
-proc ::ttk::deprecated {old new} {
+proc ttk::deprecated {old new} {
interp alias {} $old {} ttk::do'deprecate $old $new
}
## do'deprecate --
# Implementation procedure for deprecated commands --
# issue a warning (once), then re-alias old to new.
#
-proc ::ttk::do'deprecate {old new args} {
+proc ttk::do'deprecate {old new args} {
deprecated'warning $old $new
interp alias {} $old {} $new
- eval [linsert $args 0 $new]
+ uplevel 1 [linsert $args 0 $new]
}
## deprecated'warning --
# Gripe about use of deprecated commands.
#
-proc ::ttk::deprecated'warning {old new} {
+proc ttk::deprecated'warning {old new} {
puts stderr "$old deprecated -- use $new instead"
}
-### Forward-compatibility.
+### Backward-compatibility.
#
# ttk::panedwindow used to be named ttk::paned. Keep the alias for now.
#
@@ -62,7 +62,6 @@ if {[info exists ::ttk::deprecrated] && $::ttk::deprecated} {
}
variable version 0.7.8
- variable patchlevel 0.7.8
}
package provide tile $::tile::version
@@ -85,10 +84,6 @@ if {[info exists ::ttk::deprecrated] && $::ttk::deprecated} {
variable wc
foreach wc $widgets {
namespace export $wc
-
- deprecated ::t$wc ::ttk::$wc
- deprecated ::tile::$wc ::ttk::$wc
- namespace eval ::tile [list namespace export $wc]
}
}
}
diff --git a/library/ttk/winTheme.tcl b/library/ttk/winTheme.tcl
index ac4cba9..9678b10 100644
--- a/library/ttk/winTheme.tcl
+++ b/library/ttk/winTheme.tcl
@@ -1,5 +1,5 @@
#
-# $Id: winTheme.tcl,v 1.1 2006/10/31 01:42:27 hobbs Exp $
+# $Id: winTheme.tcl,v 1.2 2006/11/24 18:04:14 jenglish Exp $
#
# Ttk widget set: Windows Native theme
#
@@ -23,7 +23,8 @@ namespace eval ttk {
style configure TButton -width -11 -relief raised -shiftrelief 1
style configure TCheckbutton -padding "2 4"
style configure TRadiobutton -padding "2 4"
- style configure TMenubutton -padding "8 4" -arrowsize 3 -relief raised
+ style configure TMenubutton \
+ -padding "8 4" -arrowsize 3 -relief raised -anchor w
style map TButton -relief {{!disabled pressed} sunken}
diff --git a/library/ttk/xpTheme.tcl b/library/ttk/xpTheme.tcl
index 7749e56..9bb8b8b 100644
--- a/library/ttk/xpTheme.tcl
+++ b/library/ttk/xpTheme.tcl
@@ -1,5 +1,5 @@
#
-# $Id: xpTheme.tcl,v 1.1 2006/10/31 01:42:27 hobbs Exp $
+# $Id: xpTheme.tcl,v 1.2 2006/11/24 18:04:14 jenglish Exp $
#
# Ttk widget set: XP Native theme
#
@@ -24,7 +24,7 @@ namespace eval ttk {
style configure TButton -padding {1 1} -width -11
style configure TRadiobutton -padding 2
style configure TCheckbutton -padding 2
- style configure TMenubutton -padding {8 4}
+ style configure TMenubutton -padding {8 4} -anchor w
style configure TNotebook -tabmargins {2 2 2 0}
style map TNotebook.Tab \