# HG changeset patch
# User Mads Kiilerich <madski@unity3d.com>
# Date 1360153321 -3600
# Node ID 37010a55922aa3a81f339012dc7c10d0e062d68e
# Parent  acf4a405e440a47e18ca23a0f5cc200a32a44717# Parent  7365d031d45785e6cf7b908c6e61125451cda88a
merge with stable

diff -r acf4a405e440 -r 37010a55922a contrib/hgk
--- a/contrib/hgk	Mon Feb 04 14:10:09 2013 -0800
+++ b/contrib/hgk	Wed Feb 06 13:22:01 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
 }