Skip to content
Snippets Groups Projects
Commit 7365d031 authored by Andrej Shadura's avatar Andrej Shadura
Browse files

hgk: support the old way of getting the current Ttk theme (issue3808)

It seems like the API has changed somewhere around 8.5.7, so the preferred way
of getting the current theme is now [ttk::style theme use], while the
deprecated (but still working) is $::ttk::currentTheme.
parent b31e0be9
No related branches found
No related tags found
No related merge requests found
......@@ -109,7 +109,12 @@
# end of win32 section
} else {
if {[ttk::style theme use] eq "default"} {
if {[catch {
set theme [ttk::style theme use]
}]} {
set theme $::ttk::currentTheme
}
if {$theme eq "default"} {
ttk::style theme use clam
}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment