diff options
author | treectrl <treectrl> | 2006-12-04 00:20:38 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-12-04 00:20:38 (GMT) |
commit | 932e5ce705443196ef1b9e4b05c8794d85822622 (patch) | |
tree | 49945d029ef16a8593a920e3ae8f1c198c07808e /library/treectrl.tcl | |
parent | e38de64c44babce3b27c5785233752a722f0e800 (diff) | |
download | tktreectrl-932e5ce705443196ef1b9e4b05c8794d85822622.zip tktreectrl-932e5ce705443196ef1b9e4b05c8794d85822622.tar.gz tktreectrl-932e5ce705443196ef1b9e4b05c8794d85822622.tar.bz2 |
Theme-related changes to support tile-aware treectrl.
Diffstat (limited to 'library/treectrl.tcl')
-rw-r--r-- | library/treectrl.tcl | 15 |
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 + } + } + } +} +} |