summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2018-04-28 07:21:15 (GMT)
committerfvogel <fvogelnew1@free.fr>2018-04-28 07:21:15 (GMT)
commit5b1dbe6e63b1e596db45c65b91940298e55dd973 (patch)
tree481daefb2fd5da37d1e581b0f6be39ee841c0532 /library
parent62c05cfac502ae7f00a33eb7f95d14458897a915 (diff)
parentbfb50ad11e3a58591619b861e38537e29980d8c0 (diff)
downloadtk-5b1dbe6e63b1e596db45c65b91940298e55dd973.zip
tk-5b1dbe6e63b1e596db45c65b91940298e55dd973.tar.gz
tk-5b1dbe6e63b1e596db45c65b91940298e55dd973.tar.bz2
Fix [7423f90fbf]: missing option priorities prevent users from styling some widgets
Diffstat (limited to 'library')
-rw-r--r--library/ttk/combobox.tcl10
-rw-r--r--library/ttk/entry.tcl2
-rw-r--r--library/ttk/sizegrip.tcl2
3 files changed, 7 insertions, 7 deletions
diff --git a/library/ttk/combobox.tcl b/library/ttk/combobox.tcl
index 6ceccef..c1b6da6 100644
--- a/library/ttk/combobox.tcl
+++ b/library/ttk/combobox.tcl
@@ -88,18 +88,18 @@ bind ComboboxPopdown <ButtonPress> \
### Option database settings.
#
-option add *TCombobox*Listbox.font TkTextFont
-option add *TCombobox*Listbox.relief flat
-option add *TCombobox*Listbox.highlightThickness 0
+option add *TCombobox*Listbox.font TkTextFont widgetDefault
+option add *TCombobox*Listbox.relief flat widgetDefault
+option add *TCombobox*Listbox.highlightThickness 0 widgetDefault
## Platform-specific settings.
#
switch -- [tk windowingsystem] {
x11 {
- option add *TCombobox*Listbox.background white
+ option add *TCombobox*Listbox.background white widgetDefault
}
aqua {
- option add *TCombobox*Listbox.borderWidth 0
+ option add *TCombobox*Listbox.borderWidth 0 widgetDefault
}
}
diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl
index 647d16e..c123bc9 100644
--- a/library/ttk/entry.tcl
+++ b/library/ttk/entry.tcl
@@ -34,7 +34,7 @@ namespace eval ttk {
### Option database settings.
#
-option add *TEntry.cursor [ttk::cursor text]
+option add *TEntry.cursor [ttk::cursor text] widgetDefault
### Bindings.
#
diff --git a/library/ttk/sizegrip.tcl b/library/ttk/sizegrip.tcl
index 153e310..24a67c6 100644
--- a/library/ttk/sizegrip.tcl
+++ b/library/ttk/sizegrip.tcl
@@ -9,7 +9,7 @@
switch -- [tk windowingsystem] {
x11 -
win32 {
- option add *TSizegrip.cursor [ttk::cursor seresize]
+ option add *TSizegrip.cursor [ttk::cursor seresize] widgetDefault
}
aqua {
# Aqua sizegrips use default Arrow cursor.