Fix imported build of Tcl/Tk 8.6.11 (previous version was actually 8.6.10)
This commit is contained in:
@@ -3,7 +3,7 @@
|
||||
#
|
||||
|
||||
# The Vista theme can only be defined on Windows Vista and above. The theme
|
||||
# is created in C due to the need to assign a theme-enabled function for
|
||||
# is created in C due to the need to assign a theme-enabled function for
|
||||
# detecting when themeing is disabled. On systems that cannot support the
|
||||
# Vista theme, there will be no such theme created and we must not
|
||||
# evaluate this script.
|
||||
@@ -69,9 +69,9 @@ namespace eval ttk::theme::vista {
|
||||
ttk::style layout TCombobox {
|
||||
Combobox.border -sticky nswe -border 0 -children {
|
||||
Combobox.rightdownarrow -side right -sticky ns
|
||||
Combobox.padding -expand 1 -sticky nswe -children {
|
||||
Combobox.padding -sticky nswe -children {
|
||||
Combobox.background -sticky nswe -children {
|
||||
Combobox.focus -expand 1 -sticky nswe -children {
|
||||
Combobox.focus -sticky nswe -children {
|
||||
Combobox.textarea -sticky nswe
|
||||
}
|
||||
}
|
||||
@@ -138,7 +138,7 @@ namespace eval ttk::theme::vista {
|
||||
Spinbox.background -sticky news -children {
|
||||
Spinbox.padding -sticky news -children {
|
||||
Spinbox.innerbg -sticky news -children {
|
||||
Spinbox.textarea -expand 1
|
||||
Spinbox.textarea
|
||||
}
|
||||
}
|
||||
Spinbox.uparrow -side top -sticky ens
|
||||
@@ -151,7 +151,7 @@ namespace eval ttk::theme::vista {
|
||||
-selectforeground [list !focus SystemWindowText] \
|
||||
;
|
||||
|
||||
|
||||
|
||||
# SCROLLBAR elements (Vista includes a state for 'hover')
|
||||
ttk::style element create Vertical.Scrollbar.uparrow vsapi \
|
||||
SCROLLBAR 1 {disabled 4 pressed 3 active 2 hover 17 {} 1} \
|
||||
@@ -196,14 +196,14 @@ namespace eval ttk::theme::vista {
|
||||
Vertical.Progressbar.pbar -side bottom -sticky we
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
# Scale
|
||||
ttk::style element create Horizontal.Scale.slider vsapi \
|
||||
TRACKBAR 3 {disabled 5 focus 4 pressed 3 active 2 {} 1} \
|
||||
-width 6 -height 12
|
||||
ttk::style layout Horizontal.TScale {
|
||||
Scale.focus -expand 1 -sticky nswe -children {
|
||||
Horizontal.Scale.trough -expand 1 -sticky nswe -children {
|
||||
Scale.focus -sticky nswe -children {
|
||||
Horizontal.Scale.trough -sticky nswe -children {
|
||||
Horizontal.Scale.track -sticky we
|
||||
Horizontal.Scale.slider -side left -sticky {}
|
||||
}
|
||||
@@ -213,17 +213,17 @@ namespace eval ttk::theme::vista {
|
||||
TRACKBAR 6 {disabled 5 focus 4 pressed 3 active 2 {} 1} \
|
||||
-width 12 -height 6
|
||||
ttk::style layout Vertical.TScale {
|
||||
Scale.focus -expand 1 -sticky nswe -children {
|
||||
Vertical.Scale.trough -expand 1 -sticky nswe -children {
|
||||
Scale.focus -sticky nswe -children {
|
||||
Vertical.Scale.trough -sticky nswe -children {
|
||||
Vertical.Scale.track -sticky ns
|
||||
Vertical.Scale.slider -side top -sticky {}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
# Treeview
|
||||
ttk::style configure Item -padding {4 0 0 0}
|
||||
|
||||
|
||||
package provide ttk::theme::vista 1.0
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user