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.
--- a/contrib/hgk Mon Feb 04 23:41:11 2013 +0100
+++ b/contrib/hgk Tue Feb 05 12:58:21 2013 +0100
@@ -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
}