diff options
| author | treectrl <treectrl> | 2004-07-26 17:15:25 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2004-07-26 17:15:25 (GMT) |
| commit | b11d2de32f045d2100bbe7558487b064dd1df91e (patch) | |
| tree | 796c51e2e54415870e0608670a95b03d98ecec3a /demos/imovie.tcl | |
| parent | b8b42b5b19782001b38572e640fcfde40fcce987 (diff) | |
| download | tktreectrl-b11d2de32f045d2100bbe7558487b064dd1df91e.zip tktreectrl-b11d2de32f045d2100bbe7558487b064dd1df91e.tar.gz tktreectrl-b11d2de32f045d2100bbe7558487b064dd1df91e.tar.bz2 | |
Use the new "column create" command and -defaultstyle widget option.
Diffstat (limited to 'demos/imovie.tcl')
| -rw-r--r-- | demos/imovie.tcl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/demos/imovie.tcl b/demos/imovie.tcl index 0c99312..ac05335 100644 --- a/demos/imovie.tcl +++ b/demos/imovie.tcl @@ -9,6 +9,8 @@ proc DemoIMovie {} { -selectmode browse -orient horizontal -wrap window \ -showheader no -background #dcdcdc + $T column create + InitPics imovie-* switch -- $::thisPlatform { @@ -43,6 +45,9 @@ proc DemoIMovie {} { $T style layout $S elemRect -union {elemTime elemImg elemName} \ -ipadx 6 -padx {0 3} -pady {0 3} + # Set default item style + $T configure -defaultstyle [list $S] + for {set i 0} {$i < 5} {incr i} { foreach {time name image} { 15:20 "Clip 1" imovie-01 @@ -54,7 +59,7 @@ for {set i 0} {$i < 5} {incr i} { 07:20 "Clip 7" imovie-07 } { set I [$T item create] - $T item style set $I 0 $S +# $T item style set $I 0 $S $T item element configure $I 0 elemTime -text $time $T item element configure $I 0 elemImg -image $image $T item element configure $I 0 elemName -text $name |