diff options
| author | treectrl <treectrl> | 2005-07-07 03:20:33 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2005-07-07 03:20:33 (GMT) |
| commit | a6f8c70249012a002e3bb372285087a00aad3174 (patch) | |
| tree | 5955ef3ceef8e2825effb8833bfb4d25d858bad8 /demos | |
| parent | 7aa46a49a80c4e090566fb9244f8809a290c4dc9 (diff) | |
| download | tktreectrl-a6f8c70249012a002e3bb372285087a00aad3174.zip tktreectrl-a6f8c70249012a002e3bb372285087a00aad3174.tar.gz tktreectrl-a6f8c70249012a002e3bb372285087a00aad3174.tar.bz2 | |
Explorer (details) demo sets background color for the sort column like WinXP does.
Diffstat (limited to 'demos')
| -rw-r--r-- | demos/explorer.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/demos/explorer.tcl b/demos/explorer.tcl index 72f37cb..e9e6782 100644 --- a/demos/explorer.tcl +++ b/demos/explorer.tcl @@ -68,7 +68,7 @@ proc DemoExplorerDetails {} { # $T column create -text Name -tag name -width 200 \ - -arrow up -arrowpadx 6 + -arrow up -itembackground #F7F7F7 $T column create -text Size -tag size -justify right -width 60 \ -arrowside left -arrowgravity right $T column create -text Type -tag type -width 120 @@ -208,10 +208,10 @@ proc ExplorerHeaderInvoke {T C} { set order -increasing set arrow up } - $T column configure $SortColumn -arrow none + $T column configure $SortColumn -arrow none -itembackground {} set SortColumn $C } - $T column configure $C -arrow $arrow + $T column configure $C -arrow $arrow -itembackground #F7F7F7 set dirCount $::TreeCtrl::Priv(DirCnt,$T) set lastDir [expr {$dirCount - 1}] switch [$T column cget $C -tag] { |