diff options
| author | treectrl <treectrl> | 2005-05-13 20:29:13 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2005-05-13 20:29:13 (GMT) |
| commit | 8323f2a7eaac30f421e11a0372436c496c0443fc (patch) | |
| tree | ce47ef8423dcb8bdb47bec0c88ed5fb4a2cdaac6 /demos/imovie.tcl | |
| parent | 841d70662d15579fa28abf201dd0163f03390558 (diff) | |
| download | tktreectrl-8323f2a7eaac30f421e11a0372436c496c0443fc.zip tktreectrl-8323f2a7eaac30f421e11a0372436c496c0443fc.tar.gz tktreectrl-8323f2a7eaac30f421e11a0372436c496c0443fc.tar.bz2 | |
Use column -tag instead of zero, to handle -columnprefix option if used.
Diffstat (limited to 'demos/imovie.tcl')
| -rw-r--r-- | demos/imovie.tcl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/demos/imovie.tcl b/demos/imovie.tcl index bf73da3..a9d93cc 100644 --- a/demos/imovie.tcl +++ b/demos/imovie.tcl @@ -17,7 +17,7 @@ proc DemoIMovie {} { # Create columns # - $T column create + $T column create -tag C0 InitPics imovie-* @@ -79,10 +79,10 @@ proc DemoIMovie {} { 07:20 "Clip 7" imovie-07 } { set I [$T item create] -# $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 +# $T item style set $I C0 $S + $T item element configure $I C0 elemTime -text $time + $T item element configure $I C0 elemImg -image $image + $T item element configure $I C0 elemName -text $name $T item lastchild root $I } } @@ -123,11 +123,11 @@ proc iMovieButton1 {T x y} { set E [lindex $id end] if {$E eq "elemName"} { set exists [winfo exists $T.entry] - ::TreeCtrl::EntryOpen $T $I 0 $E + ::TreeCtrl::EntryOpen $T $I C0 $E if {!$exists} { $T.entry configure -borderwidth 0 -justify center \ -background #ffdc5a - scan [$T item bbox $I 0 $E] "%d %d %d %d" x1 y1 x2 y2 + scan [$T item bbox $I C0 $E] "%d %d %d %d" x1 y1 x2 y2 place $T.entry -y [expr {$y1 - 1}] } $T.entry selection clear |