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 | |
| 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')
| -rw-r--r-- | demos/bitmaps.tcl | 4 | ||||
| -rw-r--r-- | demos/demo.tcl | 6 | ||||
| -rw-r--r-- | demos/imovie.tcl | 4 | ||||
| -rw-r--r-- | demos/outlook-newgroup.tcl | 9 |
4 files changed, 13 insertions, 10 deletions
diff --git a/demos/bitmaps.tcl b/demos/bitmaps.tcl index 8544ee6..f8f1843 100644 --- a/demos/bitmaps.tcl +++ b/demos/bitmaps.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: bitmaps.tcl,v 1.8 2006/10/04 03:57:31 treectrl Exp $ +# RCS: @(#) $Id: bitmaps.tcl,v 1.9 2006/11/05 06:44:53 treectrl Exp $ # # Demo: Bitmaps @@ -48,7 +48,7 @@ proc DemoBitmaps {} { $T style layout $S elemTxt -expand we # Set default item style - $T configure -defaultstyle [list $S] + $T column configure C0 -itemstyle $S # # Create items and assign styles diff --git a/demos/demo.tcl b/demos/demo.tcl index 47a09bf..34f8492 100644 --- a/demos/demo.tcl +++ b/demos/demo.tcl @@ -1,6 +1,6 @@ #!/bin/wish84.exe -# RCS: @(#) $Id: demo.tcl,v 1.48 2006/10/14 21:20:08 treectrl Exp $ +# RCS: @(#) $Id: demo.tcl,v 1.49 2006/11/05 06:44:53 treectrl Exp $ set VERSION 2.1.1 @@ -269,7 +269,7 @@ proc MakeEventsWindow {} { set S [$T style create s3] $T style elements $S {e4} - $T configure -defaultstyle s1 + $T column configure C0 -itemstyle s1 RebuildEventsMenus $T $m @@ -977,7 +977,7 @@ proc InitDemoList {} { # Tk listbox has linespace + 1 height $t style layout s1 e2 -union [list e1] -ipadx 2 -ipady {0 1} -iexpand e - $t configure -defaultstyle s1 + $t column configure C0 -itemstyle s1 # "Picture Catalog" DemoPictureCatalog # "Picture Catalog 2" DemoPictureCatalog2 diff --git a/demos/imovie.tcl b/demos/imovie.tcl index 5a847c4..20282d2 100644 --- a/demos/imovie.tcl +++ b/demos/imovie.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: imovie.tcl,v 1.12 2006/10/04 03:58:26 treectrl Exp $ +# RCS: @(#) $Id: imovie.tcl,v 1.13 2006/11/05 06:46:10 treectrl Exp $ # # Demo: iMovie @@ -64,7 +64,7 @@ proc DemoIMovie {} { -ipadx 6 -padx {0 3} -pady {0 3} # Set default item style - $T configure -defaultstyle [list $S] + $T column configure C0 -itemstyle $S # # Create items and assign styles 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 |