Theme-related changes to support tile-aware treectrl.

1 files changed, 14 insertions, 1 deletions

diff --git a/library/treectrl.tcl b/library/treectrl.tcl
index 84be0e9..4ff06a4 100644
--- a/library/treectrl.tcl
+++ b/library/treectrl.tcl
@@ -1,4 +1,4 @@
-# RCS: @(#) $Id: treectrl.tcl,v 1.37 2006/11/21 02:00:54 treectrl Exp $
+# RCS: @(#) $Id: treectrl.tcl,v 1.38 2006/12/04 00:22:29 treectrl Exp $
 
 bind TreeCtrl <Motion> {
     TreeCtrl::CursorCheck %W %x %y
@@ -1494,3 +1494,16 @@ proc ::TreeCtrl::PercentsCmd {T char object event detail charMap} {
     }
     return
 }
+
+namespace eval TreeCtrl {
+catch {
+    foreach theme [ttk::style theme names] {
+	ttk::style theme settings $theme {
+	    ttk::style configure TreeCtrlHeading -relief raised -font TkHeadingFont
+	    ttk::style map TreeCtrlHeading -relief {
+		pressed sunken
+	    }
+	}
+    }
+}
+}