diff options
author | treectrl <treectrl> | 2006-11-05 06:44:53 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-11-05 06:44:53 (GMT) |
commit | dbb872605b6aea9aa294582fcc5131265f9920c8 (patch) | |
tree | 0a960e6b207cde39f761b658e40fa1cb5f8697a5 /demos/outlook-newgroup.tcl | |
parent | 0f8dbde0ed9c305a20378439c9f4358728bd6d92 (diff) | |
download | tktreectrl-dbb872605b6aea9aa294582fcc5131265f9920c8.zip tktreectrl-dbb872605b6aea9aa294582fcc5131265f9920c8.tar.gz tktreectrl-dbb872605b6aea9aa294582fcc5131265f9920c8.tar.bz2 |
Replaced use of deprecated treectrl option -defaultstyle with new column option -itemstyle.
Diffstat (limited to 'demos/outlook-newgroup.tcl')
-rw-r--r-- | demos/outlook-newgroup.tcl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/demos/outlook-newgroup.tcl b/demos/outlook-newgroup.tcl index 1513912..739dc62 100644 --- a/demos/outlook-newgroup.tcl +++ b/demos/outlook-newgroup.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: outlook-newgroup.tcl,v 1.15 2006/10/04 04:08:25 treectrl Exp $ +# RCS: @(#) $Id: outlook-newgroup.tcl,v 1.16 2006/11/05 06:46:10 treectrl Exp $ # # Demo: Outlook Express newsgroup messages @@ -87,8 +87,11 @@ proc DemoOutlookNewsgroup {} { $T style layout $S elemTxt -padx 6 -squeeze x -expand ns $T style layout $S sel.w -detach yes -iexpand xy - # Set default item style - $T configure -defaultstyle [list "" "" "" s1 s2.we s2.we s2.w] + # Set default item styles + $T column configure subject -itemstyle s1 + $T column configure from -itemstyle s2.we + $T column configure sent -itemstyle s2.we + $T column configure size -itemstyle s2.w # # Create items and assign styles |