diff options
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 |